RosettaCodeData/Task/Repeat-a-string/OCaml/repeat-a-string-5.ml

4 lines
69 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let string_repeat s n =
Array.fold_left (^) "" (Array.make n s)
;;