#!/usr/local/bin/perl -w
# fib-memoize2.pl -- Memoizing zur Beschleunigung der Fibonacci-Funktion
#              Verwendet das CPAN-Modul Memoize

use Memoize;                             # CPAN-Modul
use Benchmark;                           # Standardmodul

timethis(50, sub { fib(20); });           # Ist erst sehr langsam
memoize('fib');                           # Memoizing einschalten
timethis(50, sub { fib(20); });           # Deutliche Beschleunigung

# Die Fibonacci-Funktion:
sub fib {
    my $arg = shift;
    return 1 if $arg == 0 || $arg == 1;
    return fib($arg - 1) + fib($arg - 2);
}