diff options
Diffstat (limited to 'fib')
-rwxr-xr-x | fib | 20 |
1 files changed, 0 insertions, 20 deletions
@@ -1,20 +0,0 @@ -#!./perl - -sub fib -{ - ($_[0] < 2) ? $_[0] : &fib($_[0]-1) + &fib($_[0]-2); -} - -sub myruntime -{ - local(@t) = times; # in seconds - $t[0] + $t[1]; -} - -$x = (shift || 20); -print "Starting fib($x)\n"; -$before = &myruntime; -$y = &fib($x); -$after = &myruntime; -printf("Done. Result $y in %g cpu seconds.\n", $after-$before); - |