evrim

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

vectorSpace ∷ (Enum a1, Eq a, Num a1, Num a, Ord a1) ⇒ a1 → a → [[a1]]
vectorSpace q 0 = [[]]
vectorSpace q n | q > 0 = (:) <$> [0..q-1] <*> (vectorSpace q $ n - 1)
vectorSpace _ _ = error "vectorSpace"


*Main Numeric.LinearAlgebra> length $ vectorSpace 2 (2^3)
256
*Main Numeric.LinearAlgebra> length $ vectorSpace 2 (2^4)
65536

evrim

We couldn’t find that file to show.

evrim

We couldn’t find that file to show.

evrim

We couldn’t find that file to show.