RosettaCodeData/Task/Repeat-a-string/Standard-ML/repeat-a-string-3.ml

fun char_repeat (c, n) =
  implode (List.tabulate (n, fn _ => c))
;