tasks a-s

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

@@ -0,0 +1,8 @@
+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)
+;;

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

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

Task/Repeat-a-string/OCaml/repeat-a-string-3.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-4.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-5.ocaml

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