Select Code to Download

    sub fibo
    {
        my ($n, $a, $b) = (shift, 0, 1);
        ($a, $b) = ($b, $a + $b) while $n-- > 0;
        $a;
    }

use strict;
use warnings;
use Memoize;
...
  ($a, $b) = ($b, $a + $b) while $n-- > 0;
  $a;
}

use strict;
use warnings;
use Memoize;
...
  return $n if $n < 2;
  return fib($n - 1) + fib($n - 2);
}