giles
ca34cede88
Test, Build, and Deploy / test-build-deploy (push) Failing after 21s
ocaml: phase 5.1 next_greater.ml baseline (monotonic stack, sum 153)
Right-to-left monotonic stack for next-greater-element:
for i = n - 1 downto 0 do
while (match !stack with [] -> false | h :: _ -> h <= arr.(i)) do
stack := List.tl !stack
done;
(match !stack with
| [] -> res.(i) <- -1
| h :: _ -> res.(i) <- h);
stack := arr.(i) :: !stack
done
For [4; 5; 2; 25; 7; 8; 1; 30; 12]:
results: [5; 25; 25; 30; 8; 30; 30; -1; -1]
sum of non-negative = 5+25+25+30+8+30+30 = 153
Tests stack as ref list with match-driven peek, match-as-bool in
while-guard, inline parenthesized match driving <-.
169 baseline programs total.
2026-05-10 23:58:50 +00:00
..
2026-05-07 11:31:17 +00:00
2026-05-06 09:19:56 +00:00
2026-05-07 19:33:09 +00:00
2026-05-05 12:35:26 +00:00
2026-05-06 09:19:56 +00:00
2026-05-06 09:19:56 +00:00
2026-05-06 09:19:56 +00:00
2026-04-25 08:06:17 +00:00
2026-04-24 16:03:00 +00:00
2026-05-06 09:19:56 +00:00
2026-05-06 17:40:53 +00:00
2026-05-06 17:02:02 +00:00
2026-04-25 08:54:05 +00:00
2026-05-06 09:19:56 +00:00
2026-05-06 15:17:43 +00:00
2026-04-26 17:54:34 +00:00
2026-04-25 18:35:32 +00:00
2026-05-06 09:19:56 +00:00
2026-05-07 19:45:23 +00:00
2026-04-24 16:03:00 +00:00
2026-05-06 09:19:56 +00:00
2026-05-10 23:58:50 +00:00
2026-05-06 09:19:56 +00:00
2026-04-24 15:16:45 +00:00
2026-04-23 19:42:16 +00:00
2026-05-01 20:20:56 +00:00
2026-04-25 16:32:26 +00:00
2026-05-07 02:38:57 +00:00
2026-05-06 11:06:05 +00:00
2026-05-07 18:29:20 +00:00