Add simple fromFunction benchmarks.

foxik · foxik · commit a556ef225952 · 2014-12-15T15:32:20.000+01:00
diff --git a/benchmarks/Sequence.hs b/benchmarks/Sequence.hs
@@ -37,6 +37,13 @@ main = do
          , bench "nf100" $ nf (uncurry S.zip) (s100, u100)
          , bench "nf10000" $ nf (uncurry S.zip) (s10000, u10000)
          ]
+      , bgroup "fromFunction"
+         [ bench "ix10000/5000" $ nf (\s -> S.fromFunction s (+1) `S.index` (s `div` 2)) 10000
+         , bench "nf10" $ nf (\s -> S.fromFunction s (+1)) 10
+         , bench "nf100" $ nf (\s -> S.fromFunction s (+1)) 100
+         , bench "nf1000" $ nf (\s -> S.fromFunction s (+1)) 1000
+         , bench "nf10000" $ nf (\s -> S.fromFunction s (+1)) 10000
+         ]
       ]
 
 -- splitAt+append: repeatedly cut the sequence at a random point

Original file line number	Diff line number	Diff line change
`@@ -37,6 +37,13 @@ main = do`
`37`	`37`	`, bench "nf100" $ nf (uncurry S.zip) (s100, u100)`
`38`	`38`	`, bench "nf10000" $ nf (uncurry S.zip) (s10000, u10000)`
`39`	`39`	`]`
	`40`	`+ , bgroup "fromFunction"`
	`41`	+ [ bench "ix10000/5000" $ nf (\s -> S.fromFunction s (+1) `S.index` (s `div` 2)) 10000
	`42`	`+ , bench "nf10" $ nf (\s -> S.fromFunction s (+1)) 10`
	`43`	`+ , bench "nf100" $ nf (\s -> S.fromFunction s (+1)) 100`
	`44`	`+ , bench "nf1000" $ nf (\s -> S.fromFunction s (+1)) 1000`
	`45`	`+ , bench "nf10000" $ nf (\s -> S.fromFunction s (+1)) 10000`
	`46`	`+ ]`
`40`	`47`	`]`
`41`	`48`
`42`	`49`	`-- splitAt+append: repeatedly cut the sequence at a random point`