mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-10 05:03:54 -05:00
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);
|
|
()
|