sample/fib.pl


1
2
3
4
5
6
7
8
9
10
11

sub fib {
    my($n)=@_;
    if ($n<2) {
	return $n;
    }
    else {
	return fib($n-2)+fib($n-1);
    }
}

print fib(20), "\n";