From 27dd423e8e7fbe3314cbfe1cfaf147457430cf37 Mon Sep 17 00:00:00 2001
From: Irakli Safareli <i.safareli@gmail.com>
Date: Wed, 13 Dec 2017 01:42:20 +0100
Subject: [PATCH] add more bench

---
 bench/Bench/Main.purs | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/bench/Bench/Main.purs b/bench/Bench/Main.purs
index b87fbb4..435e0a2 100644
--- a/bench/Bench/Main.purs
+++ b/bench/Bench/Main.purs
@@ -73,10 +73,11 @@ 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
@@ -84,9 +85,15 @@ extended = do
   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 =