home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / rbemx144.zip / ruby-1.4.4 / sample / fib.pl < prev    next >
Text File  |  1998-01-16  |  166b  |  11 lines

  1.    sub fib {
  2.        local($n)=@_;
  3.        if( $n<2 ){
  4.            return $n;
  5.        } {
  6.            return &fib($n-2)+&fib($n-1)
  7.        }
  8.    }
  9.  
  10.    print &fib(20), "\n";
  11.