http://www.perlmonks.org?node_id=1013043


in reply to Re: Reminder to self: must use Memoize more often!
in thread Reminder to self: must use Memoize more often!

On my machine at least, fib6 is 4% faster than fib5:

my @fib6_cache;
sub fib6 {
    my $n = shift;
    $fib6_cache[ $n ] //= $n < 2 ? $n
        : ( $fib6_cache[ $n-1 ] //= fib6($n-1) )
        + ( $fib6_cache[ $n-2 ] //= fib6($n-2) );
}

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Cool Uses for Perl