Data commit

Task/General-FizzBuzz/OCaml/general-fizzbuzz.ocaml

@@ -0,0 +1,32 @@
+(* Task : General_FizzBuzz *)
+
+(*
+	The FizzBuzz problem, but
+	generalized to have any strings, at any steps,
+	up to any number of iterations.
+*)
+
+let gen_fizz_buzz (n : int) (l : (int * string) list) : unit =
+  let fold_f i (acc : bool) (k, s) =
+    if i mod k = 0
+    then (print_string s; true)
+    else acc
+  in
+  let rec helper i =
+    if i > n
+    then ()
+    else
+      let any_printed = List.fold_left (fold_f i) false l in
+      begin
+        (if not any_printed
+         then print_int i);
+        print_newline ();
+        helper (succ i)
+      end
+  in
+  helper 1
+;;
+
+(*** Output ***)
+
+gen_fizz_buzz 20 [(3, "Fizz"); (5, "Buzz"); (7, "Baxx")] ;;