summaryrefslogtreecommitdiff
path: root/sample/fib.pl
blob: c5593764aa0c6639909547dd9043119883c7d96a (plain)
1
2
3
4
5
6
7
8
9
10
   sub fib {
       local($n)=@_;
       if( $n<2 ){
           return $n;
       } {
           return &fib($n-2)+&fib($n-1)
       }
   }

   print &fib(20), "\n";