simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

test of fast iteration over integers

Browse source
This commit is contained in:
Simon Cruanes 2013-02-04 20:41:58 +01:00
parent ab74acf87a
commit 74fb0a4725
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests.ml
View file

@ -37,4 +37,9 @@ let _ =
(Sequence.Array.to_seq
(Sequence.Array.of_seq (Sequence.append
(Sequence.take 5 (Sequence.List.to_seq l3)) (Sequence.List.to_seq l4))));
(* sum *)
let n = 200000000 in
let sum = Sequence.fold (+) 0 (Sequence.take n (Sequence.Int.repeat 1)) in
Format.printf "%dx1 = %d@." n sum;
assert (n=sum);
()