parallel & tail recursive vectorSpace

gistfile1.hs

vectorSpace_F2'' 0 acc = acc
vectorSpace_F2'' n acc = vectorSpace_F2'' (n-1) $ concatMap f acc
    where f x = a `par` [a,(Bir:x)]                                                                                                                                                                 
                where a = (Sifir:x)

vvectorSpace_F2 n = vectorSpace_F2'' n [[Sifir],[Bir]]

main = do
  print $ length $ vvectorSpace_F2 $ 2^5

evrim@evrim ~/haskell $ time ./crypto +RTS -K1G -M2G -N4 -RTS
8589934592

real    32m42.499s
user    55m11.760s
sys     6m40.270s