ocaml: phase 5.1 fizz_classifier.ml baseline (FizzBuzz with polymorphic variants, 1..30 weighted = 540)

Two functions:
  classify n   maps i to a polymorphic variant
                  FizzBuzz | Fizz | Buzz | Num of int
  score x      pattern-matches the variant to a weight
                  FizzBuzz=100, Fizz=10, Buzz=5, Num n=n

For i in 1..30:
  FizzBuzz at 15, 30:                  2 * 100 = 200
  Fizz at 3,6,9,12,18,21,24,27:        8 *  10 =  80
  Buzz at 5,10,20,25:                  4 *   5 =  20
  Num: rest (16 numbers)                       = 240
                                          total = 540

Exercises polymorphic-variant match (iter 87) including a
payload-bearing 'Num n' arm.

105 baseline programs total.

lib/ocaml/baseline/expected.json

@@ -45,6 +45,7 @@
   "hanoi.ml": 1023,
   "hist.ml": 75,
   "int_sqrt.ml": 1027,
+  "fizz_classifier.ml": 540,
   "fizzbuzz.ml": 57,
   "flatten_tree.ml": 28,
   "list_ops.ml": 30,

lib/ocaml/baseline/fizz_classifier.ml

@@ -0,0 +1,21 @@
+let classify n =
+  let by3 = n mod 3 = 0 in
+  let by5 = n mod 5 = 0 in
+  if by3 && by5 then `FizzBuzz
+  else if by3 then `Fizz
+  else if by5 then `Buzz
+  else `Num n
+
+let score x = match x with
+  | `FizzBuzz -> 100
+  | `Fizz -> 10
+  | `Buzz -> 5
+  | `Num n -> n
+
+;;
+
+let total = ref 0 in
+for i = 1 to 30 do
+  total := !total + score (classify i)
+done;
+!total