fib.pl
[
plain text
]
sub
fib{
my
$n = $_[0];
if
($n < 3){
return
1; }
else
{
return
fib($n-1) + fib($n-2); } }; &fib(34);