fib

   1 #!./perl
   2
   3 sub fib
   4 {
   5     ($_[0] < 2) ? $_[0] : &fib($_[0]-1) + &fib($_[0]-2);
   6 }
   7
   8 sub myruntime
   9 {
  10     local(@t) = times;          #  in seconds
  11     $t[0] + $t[1];
  12 }
  13
  14 $x = (shift || 20);
  15 print "Starting fib($x)\n";
  16 $before = &myruntime;
  17 $y = &fib($x);
  18 $after = &myruntime;
  19 printf("Done. Result $y in %g cpu seconds.\n", $after-$before);
  20