diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-01-21 18:37:51 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-01-21 18:37:51 +0000 |
| commit | 47bd40986ff3c7e94ff76ab5c0e632d8fead9a39 (patch) | |
| tree | def5e5c1a7c903baa9133c555d9be617ba3ff80e /ghc/misc/examples/nfib/nfib.pl | |
| parent | 71130e6906dd3c673acd6b96220f4931451a3cc6 (diff) | |
| download | haskell-47bd40986ff3c7e94ff76ab5c0e632d8fead9a39.tar.gz | |
rempve some unused files
Diffstat (limited to 'ghc/misc/examples/nfib/nfib.pl')
| -rw-r--r-- | ghc/misc/examples/nfib/nfib.pl | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/ghc/misc/examples/nfib/nfib.pl b/ghc/misc/examples/nfib/nfib.pl deleted file mode 100644 index 18cc926adb..0000000000 --- a/ghc/misc/examples/nfib/nfib.pl +++ /dev/null @@ -1,19 +0,0 @@ -# WARNING! -# Note: be careful about running this with an argument > (say) 18 ! -# running this script on '27' will chew up ~80 MB of virtual -# ram. and its apetite grows per 1.61803 ** $n. -# -# Your system admin folk would probably be displeased if you trash -# other people's work, or disable systems running this script! -# -# Usage: perl nfib.prl <number> -# -$n = @ARGV[0]; -$f=&fib($n); -print " $n! = $f\n"; -sub fib { - local ($n)=$_[0]; - if ($n==0) {return (0);} - elsif($n==1) {return(1);} - return (&fib ($n-1) + &fib($n-2)); -} |