Initial data commit

Task/Odd-word-problem/OCaml/odd-word-problem.ocaml

@@ -0,0 +1,25 @@
+let is_alpha c =
+  c >= 'a' && c <= 'z' ||
+  c >= 'A' && c <= 'Z'
+
+let rec odd () =
+  let c = input_char stdin in
+  if is_alpha c
+  then (let e = odd () in print_char c; e)
+  else (c)
+
+let rec even () =
+  let c = input_char stdin in
+  if is_alpha c
+  then (print_char c; even ())
+  else print_char c
+
+let rev_odd_words () =
+  while true do
+    even ();
+    print_char (odd ())
+  done
+
+let () =
+  try rev_odd_words ()
+  with End_of_file -> ()