Another update from ingydotnet^djgoku

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

@@ -1,8 +1,8 @@
 let string_repeat s n =
-  let len = String.length s in
-  let res = String.create(n * len) in
+  let len = Bytes.length s in
+  let res = Bytes.create(n * len) in
   for i = 0 to pred n do
-    String.blit s 0 res (i * len) len;
+    Bytes.blit s 0 res (i * len) len
   done;
-  (res)
+  Bytes.to_string res (* not stricly necessary, the bytes type is equivalent to string except mutability *)
 ;;

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

@@ -1,2 +1 @@
-# string_repeat "Hiuoa" 3 ;;
-- : string = "HiuoaHiuoaHiuoa"
+ val string_repeat : bytes -> int -> string = <fun>

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

@@ -1,3 +1,2 @@
-let string_repeat s n =
-  String.concat "" (Array.to_list (Array.make n s))
-;;
+# string_repeat "Hiuoa" 3 ;;
+- : string = "HiuoaHiuoaHiuoa"

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

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

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

@@ -1 +1,3 @@
-String.make 5 '*'
+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 '*'