Wollw · April 16, 2012 16:49
diff --git a/factorial.hs b/factorial.hs
 main = do
 	putStrLn "Enter a number:"
 	n <- getLine
 	putStrLn $ "The factorial of " ++ n ++ " is:"
 	print $ factorial $ read n

 factorial :: (Num a) => a -> a
 factorial 0 = 1
 factorial n = n * factorial (n - 1)
	main = do
	putStrLn "Enter a number:"
	n <- getLine
	putStrLn $ "The factorial of " ++ n ++ " is:"
	print $ factorial $ read n

	factorial :: (Num a) => a -> a
	factorial 0 = 1
	factorial n = n * factorial (n - 1)
No results found