cs320-factorial-with input
| Run Settings | |
|---|---|
| Language | Haskell |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | o1xhack |
| Created | |
| Modified | |
| Visibility | Public |
module Factorial (fact)
where
fact :: Int -> Int
fact n = prod (down n)
prod :: [Int] -> Int
prod [] = 1
prod (a:as) = a * prod as
down :: Int -> [Int]
down 0 = []
down n = n : down (n-1)
-- END Factorial.hs
main = print(fact 3)
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |