Select Code to Download

my @fib = ( 0, 1 );
sub fib {
...
    return ( $fib[ $n - 1 ] ||= fib($n - 1) )
         + ( $fib[ $n - 2 ] ||= fib($n - 2) );
}

my @fib = ( 0, 1 );
sub fib {
...
    $fib[$_] = $fib[$_-2] + $fib[$_-1] for @fib..$n;
    return $fib[$n];
}