sample/fib.pl


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";