雑記 - otherwise

最近はDQ10しかやっていないダメ技術者がちまちまと綴る雑記帳

コーヒーブレイク

とりあえず perl で。

#!perl

use strict;
use warnings;
use utf8;

&main();
exit 0;

sub main() {
  my @fibs = (1, 2);
  my $sum = 2;
  while ($fibs[-2] + $fibs[-1] <= 4000000) {
    push @fibs, $fibs[-2] + $fibs[-1];
    $sum += $fibs[-1] if ($fibs[-1] % 2 == 0);
  }
  printf 'Sum = %d' . "\n", $sum;
}

なんか規則性とかあるのかなー、と思って少し調べてみたけど、いまいちうまいのが見つけられませんでした。なので正攻法で。