Select Code to Download

  F(n) = floor((((1+sqrt(5))/2)**n) / sqrt(5)) + 0.5)

my $PHI = (1 + sqrt(5)) / 2;
sub fib ($) {int($PHI ** $_[0] / sqrt(5) + 0.5)}
...
21
34
55