Data commit

Task/Binary-strings/OCaml/binary-strings-1.ocaml

@@ -0,0 +1,2 @@
+# String.create 10 ;;
+- : string = "\000\023\000\000\001\000\000\000\000\000"

Task/Binary-strings/OCaml/binary-strings-10.ocaml

@@ -0,0 +1,2 @@
+# "Now just remind me" ^ " how the horse moves again?" ;;
+- : string = "Now just remind me how the horse moves again?"

Task/Binary-strings/OCaml/binary-strings-2.ocaml

@@ -0,0 +1,6 @@
+# let str = "some text" ;;
+val str : string = "some text"
+
+(* modifying a character, OCaml strings are mutable *)
+# str.[0] <- 'S' ;;
+- : unit = ()

Task/Binary-strings/OCaml/binary-strings-3.ocaml

@@ -0,0 +1,5 @@
+# str = "Some text" ;;
+- : bool = true
+
+# "Hello" > "Ciao" ;;
+- : bool = true

Task/Binary-strings/OCaml/binary-strings-4.ocaml

@@ -0,0 +1,2 @@
+# String.copy str ;;
+- : string = "Some text"

Task/Binary-strings/OCaml/binary-strings-5.ocaml

@@ -0,0 +1,8 @@
+# let string_is_empty s = (s = "") ;;
+val string_is_empty : string -> bool = <fun>
+
+# string_is_empty str ;;
+- : bool = false
+
+# string_is_empty "" ;;
+- : bool = true

Task/Binary-strings/OCaml/binary-strings-6.ocaml

@@ -0,0 +1,2 @@
+# str ^ "!" ;;
+- : string = "Some text!"

Task/Binary-strings/OCaml/binary-strings-7.ocaml

@@ -0,0 +1 @@
+Buffer.add_char str c

Task/Binary-strings/OCaml/binary-strings-8.ocaml

@@ -0,0 +1,2 @@
+# String.sub str 5 4 ;;
+- : string = "text"

Task/Binary-strings/OCaml/binary-strings-9.ocaml

@@ -0,0 +1,7 @@
+# #load "str.cma";;
+# let replace str occ by =
+    Str.global_replace (Str.regexp_string occ) by str
+  ;;
+val replace : string -> string -> string -> string = <fun>
+# replace "The white dog let out a single, loud bark." "white" "black" ;;
+- : string = "The black dog let out a single, loud bark."