reduce the parallelism depth, to avoid creating too many sparks
authorSimon Marlow <marlowsd@gmail.com>
Tue, 5 Apr 2011 09:00:58 +0000 (10:00 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 5 Apr 2011 09:21:33 +0000 (10:21 +0100)
parallel/coins/coins.hs

index 4d796b5..a0796ef 100644 (file)
@@ -195,7 +195,7 @@ main = do
            -- sequential, append-list of results
            2 -> print $ lenA   $ payA arg coins1 []
            -- parallel, append-list of results
-           3 -> print $ lenA   $ payA_par 4 arg coins1 []
+           3 -> print $ lenA   $ payA_par 3 arg coins1 []
 
            4 -> print $ length (pay 0 arg coins [])
            5 -> print $ length (pay1 0 arg coins1 (map (\(c,q) -> (c,0)) coins1))