From 301c2609bee3635153155fd9d760bea98dcd2fab Mon Sep 17 00:00:00 2001
From: Drup <drupyog@zoho.com>
Date: Tue, 20 May 2014 22:14:23 +0200
Subject: [PATCH] Get rid of the for loop

---
 bench/bench_persistent_read.ml | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/bench/bench_persistent_read.ml b/bench/bench_persistent_read.ml
index 3893813..8e0dea6 100644
--- a/bench/bench_persistent_read.ml
+++ b/bench/bench_persistent_read.ml
@@ -111,10 +111,8 @@ let bench_array n =
   let a = Sequence.to_array Sequence.(1 -- n) in
   Sequence.of_array a
 
-let read s n =
-  for i = 0 to n do
-    Sequence.map (fun x -> x + 1) s
-  done
+let read s =
+  Sequence.map (fun x -> x + 1) s
 
 let () =
   let bench_n n =
@@ -126,11 +124,11 @@ let () =
       let array = bench_current n in
       let naive = bench_naive n in
       Benchmark.throughputN 5
-        [ "mlist", read mlist, 1
-        ; "list", read list, 1
-        ; "current", read current, 1
-        ; "array", read array, 1
-        ; "naive", read naive, 1
+        [ "mlist",   read, mlist
+        ; "list",    read, list
+        ; "current", read, current
+        ; "array",   read, array
+        ; "naive",   read, naive
         ]
     in Benchmark.tabulate res
   in