blob: de874df916de7ecfacefe910632f17d3a58642f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- This literate program prompts the user for a number
-- and prints the factorial of that number:
{- This is a comment. -}
{- This is a comment,
too -}
{-# this is a pragma, COUNT IT -}
main :: IO ()
main = do putStr "Enter a number: "
l <- readLine
putStr "n!= "
print (fact (read l))
fact :: Integer -> Integer
fact 0 = 1
fact n = n * fact (n-1)
|