RosettaCodeData/Task/Repeat-a-string/OCaml/repeat-a-string-5.ocaml
2023-07-01 13:44:08 -04:00

3 lines
69 B
Text

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