Parallel Vector Spaces

gistfile1.txt

module Main where

import Control.Parallel.Strategies
import Control.Monad
import Data.List 

data S = One | Z
         deriving (Show, Eq)

vectorSpace n = replicateM n [One,Z]

zeroCount n = foldl f (0,0) (vectorSpace n `using` parListChunk 1000 strategy)
    where
      f a1 x1 = ((zeros x1) + (fst a1), (ones x1) + (snd a1))
      strategy = r0

zeros l = length $ filter (== Z) l
ones  l = length $ filter (== One) l

main = do
  putStrLn . show $ zeroCount (2^5)
  return ()