mirror of
https://github.com/c-cube/iter.git
synced 2025-12-06 03:05:29 -05:00
31 lines
1.2 KiB
OCaml
31 lines
1.2 KiB
OCaml
|
|
(** {2 Test sequences} *)
|
|
|
|
(** print a list of items using the printing function *)
|
|
let rec pp_list ?(sep=", ") pp_item formatter = function
|
|
| x::y::xs -> Format.fprintf formatter "%a%s@,%a"
|
|
pp_item x sep (pp_list ~sep:sep pp_item) (y::xs)
|
|
| x::[] -> pp_item formatter x
|
|
| [] -> ()
|
|
|
|
let _ =
|
|
let l = [0;1;2;3;4;5;6] in
|
|
let l' = Sequence.List.of_seq
|
|
(Sequence.filter (fun x -> x mod 2 = 0) (Sequence.List.to_seq l)) in
|
|
let l'' = Sequence.List.of_seq
|
|
(Sequence.take 3 (Sequence.drop 1 (Sequence.List.to_seq l))) in
|
|
let h = Hashtbl.create 3 in
|
|
for i = 0 to 5 do
|
|
Hashtbl.add h i (i*i);
|
|
done;
|
|
let l2 = Sequence.List.of_seq
|
|
(Sequence.map (fun (x, y) -> (string_of_int x) ^ " -> " ^ (string_of_int y))
|
|
(Sequence.Hashtbl.to_seq h))
|
|
in
|
|
let l3 = Sequence.List.of_seq (Sequence.Int.range ~start:0 ~stop:42) in
|
|
Format.printf "l=@[<h>[%a]@]@." (pp_list Format.pp_print_int) l;
|
|
Format.printf "l'=@[<h>[%a]@]@." (pp_list Format.pp_print_int) l';
|
|
Format.printf "l''=@[<h>[%a]@]@." (pp_list Format.pp_print_int) l'';
|
|
Format.printf "l2=@[<h>[%a]@]@." (pp_list Format.pp_print_string) l2;
|
|
Format.printf "l3=@[<h>[%a]@]@." (pp_list Format.pp_print_int) l3;
|
|
()
|