Select Code to Download

# Compute Fibonacci numbers, straight from Memoize docs
use Memoize;
...
}

my $foo = fib(24);

sub fib{int(((((1+sqrt(5))/2)**$_[0])/sqrt(5))+.5)}