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

3 lines
69 B
OCaml

let string_repeat s n =
Array.fold_left (^) "" (Array.make n s)
;;