# HG changeset patch
# User Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
# Date 1375174459 -32400
# Node ID adc9ccc881922cb5c049473f66541bc05ebe9ba5
# Parent  e527b015074825bc48e801af76b9a3ed015f7a27
add fib

diff -r e527b0150748 -r adc9ccc88192 fib.hs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fib.hs	Tue Jul 30 17:54:19 2013 +0900
@@ -0,0 +1,14 @@
+module Main where
+
+import Control.Parallel
+
+main = a `par` b `par` c `par` d `pseq` print (a + b + c + d) 
+  where
+    a = fib 35
+    b = fib 36
+    c = fib 37
+    d = fib 38
+
+fib 0 = 0
+fib 1 = 1
+fib n = fib (n-1) + fib (n-2)