perl 5.0 alpha 6
[perl.git] / bench / 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