fact :: Int -> Intfact 0 = 1fact n = n * fact (n - 1) main = do print(fact 5)
Standard input is empty
120
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!