File: simple_bench.ml

package info (click to toggle)
ocaml-iter 1.9-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 328 kB
  • sloc: ml: 2,503; makefile: 39
file content (10 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
open Iter.Infix

let _ =
  let n = int_of_string Sys.argv.(1) in
  let seq = 0 -- n in
  let start = Unix.gettimeofday () in
  seq |> Iter.persistent |> Iter.fold ( + ) 0 |> ignore;
  let stop = Unix.gettimeofday () in
  Format.printf "iter on %d: %.4f@." n (stop -. start);
  ()