コーヒーブレイク
- ぴえろっちが問題をくれた。その1 (とりこびとの雑記)
とりあえず 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; }
なんか規則性とかあるのかなー、と思って少し調べてみたけど、いまいちうまいのが見つけられませんでした。なので正攻法で。