ocaml: phase 5.1 brainfuck.ml baseline (subset interpreter)

Five '+++++.' groups, cumulative accumulator 5+10+15+20+25 = 75.

This is a brainfuck *subset* — only > < + - . (no [ ] looping). That's
intentional: the goal is to stress imperative idioms that the recently
added Array module + array indexing syntax + s.[i] make ergonomic, all
in one program.

Exercises:
  Array.make 256 0
  arr.(!ptr)
  arr.(!ptr) <- arr.(!ptr) + 1
  prog.[!pc]
  ref / ! / :=
  while + nested if/else if/else if for op dispatch

25 baseline programs total.

lib/ocaml/baseline/brainfuck.ml

@@ -0,0 +1,20 @@
+let interpret prog =
+  let mem = Array.make 256 0 in
+  let ptr = ref 0 in
+  let pc = ref 0 in
+  let n = String.length prog in
+  let acc = ref 0 in
+  while !pc < n do
+    let c = prog.[!pc] in
+    (if c = '>' then ptr := !ptr + 1
+     else if c = '<' then ptr := !ptr - 1
+     else if c = '+' then mem.(!ptr) <- mem.(!ptr) + 1
+     else if c = '-' then mem.(!ptr) <- mem.(!ptr) - 1
+     else if c = '.' then acc := !acc + mem.(!ptr));
+    pc := !pc + 1
+  done;
+  !acc
+
+;;
+
+interpret "+++++.+++++.+++++.+++++.+++++."

lib/ocaml/baseline/expected.json

@@ -2,6 +2,7 @@
   "anagrams.ml": 3,
   "bfs.ml": 6,
   "btree.ml": 39,
+  "brainfuck.ml": 75,
   "caesar.ml": 215,
   "calc.ml": 13,
   "closures.ml": 315,

plans/ocaml-on-sx.md

@@ -407,6 +407,12 @@ _Newest first._
   binary search tree (`type 'a tree = Leaf | Node of 'a * 'a tree *
   'a tree`) with insert + in-order traversal. Tests parametric ADT,
   recursive match, List.append, List.fold_left.
+- 2026-05-09 Phase 5.1 — brainfuck.ml baseline (subset interpreter,
+  five `+++++.` groups → cumulative 5+10+15+20+25 = 75). No loop
+  brackets — the interpreter only handles `> < + - .`, but that's
+  enough to exercise Array.make, arr.(i), arr.(i) <- v, prog.[!pc],
+  ref/!/:=, while loop with conditional update via nested if/else.
+  25 baseline programs total.
 - 2026-05-09 Phase 5.1 — sieve.ml baseline (Sieve of Eratosthenes,
   count of primes ≤ 50 = 15). Stresses Array.make + arr.(i) +
   arr.(i) <- v + nested for/while loops + `begin..end` block. 24