ocaml: phase 5.1 palindrome_sum.ml baseline (sum of 3-digit palindromes = 49500)

let palindrome_sum lo hi =
    let total = ref 0 in
    for n = lo to hi do
      if is_pal n then total := !total + n
    done;
    !total

  palindrome_sum 100 999 = 49500

There are 90 three-digit palindromes (form aba; 9 choices for a, 10
for b). Average value 550, sum 49500.

Companion to palindrome.ml (predicate-only) and paren_depth.ml.

127 baseline programs total.

lib/ocaml/baseline/palindrome_sum.ml

@@ -0,0 +1,19 @@
+let is_pal n =
+  let s = string_of_int n in
+  let len = String.length s in
+  let p = ref true in
+  for i = 0 to len / 2 - 1 do
+    if s.[i] <> s.[len - 1 - i] then p := false
+  done;
+  !p
+
+let palindrome_sum lo hi =
+  let total = ref 0 in
+  for n = lo to hi do
+    if is_pal n then total := !total + n
+  done;
+  !total
+
+;;
+
+palindrome_sum 100 999