Mercurial > hg > Members > toma > Concurrent

comparison fib.hs @ 2:adc9ccc88192 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add fib
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 30 Jul 2013 17:54:19 +0900
parents
children
comparison
equal deleted inserted replaced
1:e527b0150748 2:adc9ccc88192
1 module Main where
2
3 import Control.Parallel
4
5 main = a `par` b `par` c `par` d `pseq` print (a + b + c + d)
6 where
7 a = fib 35
8 b = fib 36
9 c = fib 37
10 d = fib 38
11
12 fib 0 = 0
13 fib 1 = 1
14 fib n = fib (n-1) + fib (n-2)