factorial example

module Main where

fact :: Integer -> Integer
fact 0 = 1
fact n = n * fact (n – 1)

main = print (fact 1000)

Leave a comment

Your comment