مجموع عناصر زوج سری فیبوناچی کوچکتر از 4 میلیون

سری فیبوناچی دنباله ای از اعداد می باشد که با اعداد 1 و 2 شروع می شود و سپس عدد بعدی از جمع دو عدد قبل آن ایجاد می شود . دنباله اعداد زیر اولین اعداد سری فیبوناچی می باشند :

1  2  3  5  8  13  21  34  55  89  144  233

برنامه ای می نویسیم که مجموع اعداد زوج سری فیبوناچی را به شرطی که آخرین عدد حاصله کوچکتر از 4000000 باشد را بر گرداند .

#!/usr/local/bin/perl
use strict;
use warnings;

my $a = 1;
my $b = 2; 
my $c = 0;
my $sum = 2;

while (1) {
	$c  = $a + $b;
	last if ($c > 4000000);

	($a, $b) = ($b, $c);
	$sum += $c if $c % 2 == 0;
}

print "Sum of even values of Fibonacci ",
		"bellow 4000000 is: $sum\n";

خروجی برنامه به صورت زیر می باشد :

# ./fibo
Sum of even values of Fibonacci bellow 4000000 is: 4613732