mirror of
https://github.com/c-cube/iter.git
synced 2025-12-06 03:05:29 -05:00
b946b7157b
see ./simple_bench.native 10_000_000. The optimization is based on increasing block size.
11 lines
291 B
OCaml
11 lines
291 B
OCaml
|
|
open Sequence.Infix
|
|
|
|
let _ =
|
|
let n = int_of_string Sys.argv.(1) in
|
|
let seq = 0 -- n in
|
|
let start = Unix.gettimeofday () in
|
|
seq |> Sequence.persistent |> Sequence.fold (+) 0 |> ignore;
|
|
let stop = Unix.gettimeofday () in
|
|
Format.printf "iter on %d: %.4f@." n (stop -. start);
|
|
()
|