RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/OCaml/loop-over-multiple-arrays-simultaneously-4.ocaml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
104 B
Text

let () =
n_arrays_iter [a1; a2; a3] ~f:(fun l ->
List.iter print_char l;
print_newline());
;;