Data commit

Task/Loops-Do-while/OCaml/loops-do-while-1.ocaml

@@ -0,0 +1,7 @@
+let rec loop i =
+  let i = succ i in
+  Printf.printf "%d\n" i;
+  if i mod 6 <> 0 then
+    loop i
+  in
+  loop 0

Task/Loops-Do-while/OCaml/loops-do-while-2.ocaml

@@ -0,0 +1,7 @@
+let do_while f p =
+  let rec loop() =
+    f();
+    if p() then loop()
+  in
+  loop()
+(** val do_while : (unit -> 'a) -> (unit -> bool) -> unit *)

Task/Loops-Do-while/OCaml/loops-do-while-3.ocaml

@@ -0,0 +1,3 @@
+let v = ref 0 in
+do_while (fun () -> incr v; Printf.printf "%d\n" !v)
+         (fun () -> !v mod 6 <> 0)

Task/Loops-Do-while/OCaml/loops-do-while-4.ocaml

@@ -0,0 +1,13 @@
+let do_while f p ~init =
+  let rec loop v =
+    let v = f v in
+    if p v then loop v
+  in
+  loop init
+
+do_while (fun v ->
+            let v = succ v in
+            Printf.printf "%d\n" v;
+            (v))
+         (fun v -> v mod 6 <> 0)
+         ~init:0

Task/Loops-Do-while/OCaml/loops-do-while-5.ocaml

@@ -0,0 +1,9 @@
+let v = ref 0
+exception Exit_loop
+try while true do
+  incr v;
+  Printf.printf "%d\n" !v;
+  if not(!v mod 6 <> 0) then
+    raise Exit_loop;
+done
+with Exit_loop -> ()