RosettaCodeData/Task/Repeat-a-string/OCaml/repeat-a-string-5.ocaml
2015-11-18 06:14:39 +00:00

3 lines
69 B
Text

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