ref: bdd38072a2fa4108fff41da806309074e79ce6de
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