Commit 08400411 authored by Simon Marlow's avatar Simon Marlow

no functional changes

parent c94481e9
......@@ -167,16 +167,16 @@ in_poly_test (p,q,r) (A,B,C) Vs
> start 0 ys = ys
> start !n (y:ys) = y `par` start (n-1) ys
parBuffer :: Int -> Strategy a -> [a] -> [a]
parBuffer n s xs = return xs (start n xs)
where
return (x:xs) (y:ys) = (x : return xs ys)
`sparking` s y
return xs [] = xs
start !n [] = []
start 0 ys = ys
start !n (y:ys) = start (n-1) ys `sparking` s y
> parBuffer' :: Int -> Strategy a -> [a] -> [a]
> parBuffer' n s xs = return xs (start n xs)
> where
> return (x:xs) (y:ys) = (x : return xs ys)
> `sparking` s y
> return xs [] = xs
>
> start !n [] = []
> start 0 ys = ys
> start !n (y:ys) = start (n-1) ys `sparking` s y
> parListN :: Int -> [a] -> [a]
> parListN 0 xs = xs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment