Anonymous user
Repeat a string: Difference between revisions
added ocaml
(→{{header|J}}: Longer but faster and leaner) |
(added ocaml) |
||
Line 30:
alert("ha".repeat(5)); // hahahahaha</lang>
=={{header|OCaml}}==
<lang ocaml>let string_repeat s n =
let len = String.length s in
let res = String.create(n * len) in
for i = 0 to pred n do
String.blit s 0 res (i * len) len;
done;
(res)
;;</lang>
testing in the toplevel:
<lang ocaml># string_repeat "Hiuoa" 3 ;;
- : string = "HiuoaHiuoaHiuoa"</lang>
=={{header|Perl}}==
| |||