Data commit

Task/Repeat-a-string/OCaml/repeat-a-string-1.ocaml

@@ -0,0 +1,9 @@
+let string_repeat s n =
+  let s = Bytes.of_string s in
+  let len = Bytes.length s in
+  let res = Bytes.create (n * len) in
+  for i = 0 to pred n do
+    Bytes.blit s 0 res (i * len) len
+  done;
+  (Bytes.to_string res)
+;;

Task/Repeat-a-string/OCaml/repeat-a-string-2.ocaml

@@ -0,0 +1 @@
+val string_repeat : string -> int -> string = <fun>

Task/Repeat-a-string/OCaml/repeat-a-string-3.ocaml

@@ -0,0 +1,2 @@
+# string_repeat "Hiuoa" 3 ;;
+- : string = "HiuoaHiuoaHiuoa"

Task/Repeat-a-string/OCaml/repeat-a-string-4.ocaml

@@ -0,0 +1,3 @@
+let string_repeat s n =
+  String.concat "" (Array.to_list (Array.make n s))
+;;

Task/Repeat-a-string/OCaml/repeat-a-string-5.ocaml

@@ -0,0 +1,3 @@
+let string_repeat s n =
+  Array.fold_left (^) "" (Array.make n s)
+;;

Task/Repeat-a-string/OCaml/repeat-a-string-6.ocaml

@@ -0,0 +1 @@
+String.make 5 '*'