rempve some unused files

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

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