fib4

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