Calcul parallèle dans Haskell

Question

Lorsque j'exécute cet extrait Haskell, seul 1 processeur est chargé. Les deux f et g sont non-sens, mais ne devrait-il pas charger deux processeurs lorsqu'ils sont disponibles? Compilé en tant que ghc -O2 snippet.hs.

f x = 1 + (f $! x) 
g x = 5 + (g $! x) 

z = a `par` b `seq` a+b 
     where 
     a = f 3 
     b = g 5 

main = do 
    print z 

Answer 1

Vous devez compiler avec l'option filetée, c.-à-ghc -O2 -threaded snippet.hs, puis passer l'exécutable le nombre de cœurs sur la ligne de commande suivante pour quatre cœurs:

./snippet +RTS -N4 

Ou vous pouvez avoir les machine choisir le nombre de cœurs en utilisant seulement -N.

Voir http://www.haskell.org/haskellwiki/Haskell_for_multicores