rempve some unused files

[ghc-hetmet.git] / ghc / misc / examples / nfib / nfibF.hs

diff --git a/ghc/misc/examples/nfib/nfibF.hs b/ghc/misc/examples/nfib/nfibF.hs
deleted file mode 100644 (file)
index 604bcd1..0000000
--- a/ghc/misc/examples/nfib/nfibF.hs
+++ /dev/null
@@ -1,10 +0,0 @@
-module Main where
-
-main = print (nfib 28)
-
-nfib :: Float -> Float
-
-nfib n | n <= 1 = 1
-       | otherwise = (n1 + n2 + 1)
-                     where n1 = nfib (n-1) 
-                           n2 = nfib (n-2)