002.pl (243B)
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my $sum = 2; 7 8 my $last = 1; 9 my $cur = 2; 10 while ($cur < 4000000) { 11 my $save_last = $last; 12 $last = $cur; 13 $cur = $cur + $save_last; 14 if ($cur % 2 == 0) { 15 $sum += $cur; 16 } 17 } 18 19 print "$sum\n";