RosettaCodeData/Task/Repeat/OCaml/repeat.ml
2024-10-16 18:07:41 -07:00

10 lines
128 B
OCaml

let repeat ~f ~n =
for i = 1 to n do
f ()
done
let func () =
print_endline "Example"
let () =
repeat ~n:4 ~f:func