summaryrefslogtreecommitdiff
path: root/sample/fib.pl
blob: 4c35eaae31960a707f4eb2fa859181a0f53a681d (plain)
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";