ref: 660cf9275b8374f89c8f5db51a070070f28c1afc
dir: /tests/Fac.hs/
-- Simple test
module Fac(module Fac) where
import Prelude
fac :: Int -> Int -- ignored
fac n =
case n == 0 of
False -> n * fac (n - 1)
True -> 1
nfib :: Int -> Int -- ignored
nfib n =
case n < 2 of
False -> nfib (n - 1) + nfib (n - 2) + 1
True -> 1
res :: (Int, Int)
res = (fac 10, nfib 30)
main :: IO ()
main = do
print $ fac 6
print $ fst res + snd res