Fibonacci sequence: Difference between revisions
Content deleted Content added
Added C++ versions |
Added Perl |
||
Line 200: | Line 200: | ||
) |
) |
||
) |
) |
||
=={{header|Perl}}== |
|||
<perl>#!/usr/bin/perl -w |
|||
my $a = 1; |
|||
my $b = $a; |
|||
my $target = 500; |
|||
for( my $n = 3; $n <= $target; ++$n ) |
|||
{ |
|||
my $fib = $a + $b; |
|||
if($fib < $b) |
|||
{ |
|||
print "Overflow at $n\n"; |
|||
last; |
|||
} |
|||
print "F($n): $fib\n"; |
|||
$a = $b; |
|||
$b = $fib; |
|||
} |
|||
</perl> |
|||
=={{header|Python}}== |
=={{header|Python}}== |