diff options
Diffstat (limited to 'bench/fib')
-rwxr-xr-x | bench/fib | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/bench/fib b/bench/fib deleted file mode 100755 index 022d9d0159..0000000000 --- a/bench/fib +++ /dev/null @@ -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); - |