perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 21 deletions

diff --git a/fib4 b/fib4
deleted file mode 100755
index 71b11f10b3..0000000000
--- a/fib4
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-sub fib
-{
-    local($a) = $_[0];
-    ($a < 2) ? $a : &fib($a-1) + &fib($a-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);
-