add more bench

safareli · Dec 13, 2017 · 27dd423 · 27dd423
1 parent a1c4cec
commit 27dd423
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/bench/Bench/Main.purs b/bench/Bench/Main.purs
@@ -73,20 +73,27 @@ main = do
 extended :: Eff BenchEff Unit
 extended = do
   log header
+  timed ["bind assocR", "Ef", "20000"] $ testBindRight 20000
+  timed ["bind assocR", "Ef", "40000"] $ testBindRight 40000
+  timed ["bind assocR", "Ef", "80000"] $ testBindRight 80000
   timed ["bind assocR", "Ef", "100000"] $ testBindRight 100000 
-  timed ["bind assocR", "Ef", "1000000"] $ testBindRight 1000000 -- ~ 1 sec
---timed ["bind assocR", "Ef", "10000000"] $ testBindRight 10000000 -- ~ 10 sec
---timed ["bind assocR", "Ef", "100000000"] $ testBindRight 100000000  -- JavaScript heap out of memory  
+  timed ["bind assocR", "Ef", "1000000"] $ testBindRight 1000000
   timed ["bind assocL", "Ef", "20000"] $ testBindLeft 20000
   timed ["bind assocL", "Ef", "40000"] $ testBindLeft 40000
   timed ["bind assocL", "Ef", "80000"] $ testBindLeft 80000
   timed ["map", "Ef", "10000"] $ testMap 10000
   timed ["map", "Ef", "20000"] $ testMap 20000
   timed ["map", "Ef", "40000"] $ testMap 40000
   timed ["map", "Ef", "80000"] $ testMap 80000
+  timed ["map", "Ef", "100000"] $ testMap 100000
+  timed ["map", "Ef", "1000000"] $ testMap 1000000
+  timed ["map", "Ef", "10000000"] $ testMap 10000000
   timed ["apply", "Ef", "10000"] $ testApply 10000
   timed ["apply", "Ef", "20000"] $ testApply 20000
   timed ["apply", "Ef", "40000"] $ testApply 40000
+  timed ["apply", "Ef", "80000"] $ testApply 80000
+  timed ["apply", "Ef", "100000"] $ testApply 100000
+  timed ["apply", "Ef", "1000000"] $ testApply 1000000
 
 header :: String
 header =