A small performance tweak for the benchmark
commit9dc19351df8c11ff197d14cfed8bad9952b699d6
authorHarendra Kumar <harendra.kumar@gmail.com>
dateTue 12 Sep 2017, 20:15 (9 years ago)
parent0bde212
benchmark/Main.hs+1−1
@@ -78,7 +78,7 @@ asyncly_basic
7878 -> IO Int
7979asyncly_basic f g = do
8080 xs <- A.toList $ do
81− A.drop 100 (A.foldMapWith g return [1..100000 :: Int] `f` \x ->
81+ A.drop 100 (A.forEachWith g [1..100000 :: Int] $ \x ->
8282 afilter even x `f` amap (+1))
8383 `f` amap (+1)
8484 `f` afilter (\y -> y `mod` 2 == 0)