Haskell parMap ve paralellik

Question

Conway'in Yaşam Oyununun bir uygulamasına sahibim. Paralelizm kullanarak mümkünse hızlandırmak istiyorum. Ben paralel bir şekilde eşleyerek farkedilir bir hızlanma beklenen küçük iken böylece profilleme içinde

life :: [(Int, Int)] -> [(Int, Int)] 
life cells = map snd . filter rules . freq $ concatMap neighbours cells 
    where rules (n, c) = n == 3 || (n == 2 && c `elem` cells) 
      freq = map (length &&& head) . group . sort 

parLife :: [(Int, Int)] -> [(Int, Int)] 
parLife cells = parMap rseq snd . filter rules . freq . concat $ parMap rseq neighbours cells 
    where rules (n, c) = n == 3 || (n == 2 && c `elem` cells) 
      freq = map (length &&& head) . group . sort 

neigbours :: (Int, Int) -> [(Int, Int)] 
neighbours (x, y) = [(x + dx, y + dy) | dx <- [-1..1], dy <- [-1..1], dx /= 0 || dy /= 0] 

, komşular, harcanan zamanın% 6.3 oluşturuyor.

ben basit işlevi

main = print $ last $ take 200 $ iterate life fPent 
    where fPent = [(1, 2), (2, 2), (2, 1), (2, 3), (3, 3)] 

ile test edilmiş ve

ghc --make -O2 -threaded life.hs 

gibi paralel sürümü derlenmiş ve

./life +RTS -N3 

paralel versiyonu daha yavaş olduğu ortaya çıktı olarak ran . ParMap'i yanlış mı kullanıyorum? Bu, paralelliğin kullanılabileceği bir durum mu?

Answer 1

Haklı ölçme sanmıyorum. parLife, gerçekten life'dan biraz daha hızlı. Aslında, makinemde (Phenom X4, 4 çekirdekli), sadece, sadece% 6'lık bir iyileşme beklediğinizi düşündüğünüzü düşünürsek, bunun sadece% 92.5'ini alır. senin kıyaslama kurulum ne

mı? criterion kullanmayı denediniz mi? İşte ne yaptım:

import Criterion 
import Criterion.Main 

-- your code, minus main 

runGame f n = last $ take n $ iterate f fPent 
    where fPent = [(1, 2), (2, 2), (2, 1), (2, 3), (3, 3)] 

main = defaultMain 
    [ bench "No parallelism 200" $ whnf (runGame life) 200 
    , bench "Parallelism 200" $ whnf (runGame parLife) 200 ] 

ghc --make -O2 -o bench ile Derleyen ve ./bench -o bencht.hmtl +RTS -N3 ile koştu.

Here's the detailed result of the report.