Data commit

Task/FizzBuzz/OCaml/fizzbuzz-1.ocaml

@@ -0,0 +1,9 @@
+let fizzbuzz i =
+  match i mod 3, i mod 5 with
+    0, 0 -> "FizzBuzz"
+  | 0, _ -> "Fizz"
+  | _, 0 -> "Buzz"
+  | _    -> string_of_int i
+
+let _ =
+  for i = 1 to 100 do print_endline (fizzbuzz i) done

Task/FizzBuzz/OCaml/fizzbuzz-2.ocaml

@@ -0,0 +1,9 @@
+(* Useful rule declaration: "cond => f", 'cond'itionally applies 'f' to 'a'ccumulated value *)
+let (=>) cond f a = if cond then f a else a
+let append s a = a^s
+
+let fizzbuzz i =
+  "" |> (i mod 3 = 0 => append "Fizz")
+     |> (i mod 5 = 0 => append "Buzz")
+     |> (function "" -> string_of_int i
+                | s  -> s)