all tasks

Task/Sorting-algorithms-Stooge-sort/OCaml/sorting-algorithms-stooge-sort-1.ocaml

@@ -0,0 +1,17 @@
+let swap ar i j =
+  let tmp = ar.(i) in
+  ar.(i) <- ar.(j);
+  ar.(j) <- tmp
+
+let stoogesort ar =
+  let rec aux i j =
+    if ar.(j) < ar.(i) then
+      swap ar i j
+    else if j - i > 1 then begin
+      let t = (j - i + 1) / 3 in
+      aux (i) (j-t);
+      aux (i+t) (j);
+      aux (i) (j-t);
+    end
+  in
+  aux 0 (Array.length ar - 1)

Task/Sorting-algorithms-Stooge-sort/OCaml/sorting-algorithms-stooge-sort-2.ocaml

@@ -0,0 +1,5 @@
+let () =
+  let ar = [| 3; 1; 7; 2; 6; 5; 4; 9; 8 |] in
+  stoogesort ar;
+  Array.iter (Printf.printf " %d") ar;
+  print_newline()