1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
--
-- Haskell: factorial
-- https://wiki.haskell.org/
--
import GHC.Conc
main = a `par` b `par` c `pseq` print (a + b + c)
where
a = ack 3 10
b = fac 24
c = fib 14
fac 0 = 1
fac n = n * fac (n-1)
ack 0 n = n+1
ack m 0 = ack (m-1) 1
ack m n = ack (m-1) (ack m (n-1))
fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)
Enter to Rename, <Shift>+Enter to Preview