Repeat a string: Difference between revisions
Content added Content deleted
(added PowerBASIC) |
|||
| Line 52: | Line 52: | ||
<lang ocaml>let string_repeat s n = |
<lang ocaml>let string_repeat s n = |
||
String.concat "" (Array.to_list (Array.make n s)) |
String.concat "" (Array.to_list (Array.make n s)) |
||
;;</lang> |
|||
Or: |
|||
<lang ocaml>let string_repeat s n = |
|||
Array.fold_left (^) "" (Array.make n s) |
|||
;;</lang> |
;;</lang> |
||