From a0d0e21ea6ea90a22318550944fe6cb09ae10cda Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Mon, 17 Oct 1994 23:00:00 +0000
Subject: perl 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 :-(.
]
---
 fib4 | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100755 fib4

(limited to 'fib4')

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);
-
-- 
cgit v1.2.1