coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
2c7246e11d32de01a5a05bcf21a7635c3f2262c1
rose-ash/lib/ocaml/baseline
History
giles 2c7246e11d
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 22s
Details
ocaml: phase 5.1 euler6.ml baseline (Project Euler #6, sum^2 - sum_sq for 1..100 = 25164150) 
Project Euler #6: difference between square of sum and sum of squares
for 1..100.

  let euler6 n =
    let sum = ref 0 in
    let sum_sq = ref 0 in
    for i = 1 to n do
      sum := !sum + i;
      sum_sq := !sum_sq + i * i
    done;
    !sum * !sum - !sum_sq

  euler6 100 = 5050^2 - 338350 = 25502500 - 338350 = 25164150

102 baseline programs total.
2026-05-09 20:16:49 +00:00
..
ackermann.ml
ocaml: phase 5.1 ackermann.ml baseline (ack(3, 4) = 125)
2026-05-09 08:50:12 +00:00
adler32.ml
ocaml: phase 5.1 adler32.ml baseline (Adler-32 of 'Wikipedia' = 300286872 = 0x11E60398)
2026-05-09 19:18:01 +00:00
anagram_check.ml
ocaml: phase 5.1 anagram_check.ml baseline (char-frequency array, 2/4 anagrams)
2026-05-09 12:14:32 +00:00
anagram_groups.ml
ocaml: phase 5.1 anagram_groups.ml baseline (group by canonical anagram, 3 groups)
2026-05-09 19:47:21 +00:00
anagrams.ml
…
atm.ml
ocaml: phase 5.1 atm.ml baseline (mutable record + exception + try/with, balance = 120)
2026-05-09 12:34:36 +00:00
bag.ml
ocaml: phase 5.1 bag.ml baseline + String.equal/compare/cat/empty (+3 tests, 579 total)
2026-05-09 06:15:03 +00:00
balance.ml
ocaml: phase 5.1 balance.ml baseline (paren/bracket/brace balance via Stack)
2026-05-09 06:59:22 +00:00
base_n.ml
ocaml: phase 5.1 base_n.ml baseline (int to base-N string, length sum = 17)
2026-05-09 12:52:55 +00:00
bf_full.ml
ocaml: phase 5.1 bf_full.ml baseline (full Brainfuck with [] loops, +++[.-] = 6)
2026-05-09 12:24:48 +00:00
bfs.ml
…
bigint_add.ml
ocaml: phase 5.1 bigint_add.ml baseline (digit-list bignum add, 1+18+9 = 28)
2026-05-09 11:19:23 +00:00
bisect.ml
ocaml: phase 5.1 bisect.ml baseline (root-finding, sqrt(2)*100 = 141)
2026-05-09 13:02:17 +00:00
bits.ml
ocaml: phase 4 bitwise ops land/lor/lxor/lsl/lsr/asr + bits.ml baseline (+5 tests, 607 total)
2026-05-09 09:15:00 +00:00
brainfuck.ml
…
bsearch.ml
ocaml: phase 5.1 bsearch.ml baseline (binary search, position sum = 7)
2026-05-09 10:40:49 +00:00
btree.ml
…
caesar.ml
…
calc.ml
…
closures.ml
…
coin_change.ml
ocaml: phase 5.1 coin_change.ml baseline (DP, 67c with [1;5;10;25] = 6 coins)
2026-05-09 10:21:11 +00:00
count_change.ml
ocaml: phase 5.1 count_change.ml baseline (ways to make 50c from [1;2;5;10;25] = 406)
2026-05-09 16:28:15 +00:00
csv.ml
…
euler1.ml
ocaml: phase 5.1 euler1.ml baseline (Project Euler #1, multiples of 3 or 5 below 1000 = 233168)
2026-05-09 19:56:58 +00:00
euler2.ml
ocaml: phase 5.1 euler2.ml baseline (Project Euler #2, even Fib <= 4M = 4613732)
2026-05-09 20:05:45 +00:00
euler6.ml
ocaml: phase 5.1 euler6.ml baseline (Project Euler #6, sum^2 - sum_sq for 1..100 = 25164150)
2026-05-09 20:16:49 +00:00
exception_handle.ml
…
exception_user.ml
ocaml: phase 5.1 exception_user.ml baseline (user exception with payload, 4+5+7+10 = 26)
2026-05-09 12:04:42 +00:00
expected.json
ocaml: phase 5.1 euler6.ml baseline (Project Euler #6, sum^2 - sum_sq for 1..100 = 25164150)
2026-05-09 20:16:49 +00:00
expr_eval.ml
…
expr_simp.ml
ocaml: phase 5.1 expr_simp.ml baseline (symbolic simplifier, eval(simp e) = 22)
2026-05-09 11:09:23 +00:00
factorial.ml
…
fib_doubling.ml
ocaml: phase 5.1 fib_doubling.ml baseline (Fibonacci by doubling, fib(40) = 102334155)
2026-05-09 17:36:24 +00:00
fib_mod.ml
ocaml: phase 5.1 fib_mod.ml baseline (Fibonacci mod prime, fib(100) mod 1000003 = 391360)
2026-05-09 15:53:47 +00:00
fizzbuzz.ml
…
flatten_tree.ml
ocaml: phase 5.1 flatten_tree.ml baseline (parametric ADT flatten, sum 1..7 = 28)
2026-05-09 11:52:19 +00:00
fraction.ml
ocaml: phase 5.1 fraction.ml baseline (rational arithmetic, 4/3 -> num+den=7)
2026-05-09 06:05:31 +00:00
frequency.ml
…
gcd_lcm.ml
ocaml: phase 5.1 gcd_lcm.ml baseline (Euclidean gcd + lcm, 12+12+36 = 60)
2026-05-09 11:42:52 +00:00
gray_code.ml
ocaml: phase 5.1 gray_code.ml baseline (4-bit reflected Gray code, sum+len = 136)
2026-05-09 19:08:19 +00:00
grep_count.ml
ocaml: phase 5.1 grep_count.ml baseline (substring-aware line filter, 3 matches)
2026-05-09 09:34:40 +00:00
grid_paths.ml
ocaml: phase 5.1 grid_paths.ml baseline (count paths in 4x6 grid = 210)
2026-05-09 17:45:52 +00:00
group_consec.ml
ocaml: phase 5.1 group_consec.ml baseline (group consecutive equals, 5*10+3 = 53)
2026-05-09 14:40:22 +00:00
hailstone.ml
ocaml: phase 5.1 hailstone.ml baseline (Collatz length from 27 = 111 steps)
2026-05-09 13:30:46 +00:00
hamming.ml
ocaml: phase 5.1 hamming.ml baseline (Hamming distance, 3+2-1 = 4)
2026-05-09 18:27:50 +00:00
hanoi.ml
ocaml: phase 5.1 hanoi.ml baseline (Tower of Hanoi move count, n=10 -> 1023)
2026-05-09 08:21:19 +00:00
hist.ml
ocaml: phase 5.1 hist.ml baseline (Hashtbl int histogram, total * max = 75)
2026-05-09 15:02:13 +00:00
int_sqrt.ml
ocaml: phase 5.1 int_sqrt.ml baseline (Newton integer sqrt, 12+14+1000+1 = 1027)
2026-05-09 17:55:07 +00:00
json_pretty.ml
ocaml: phase 5.1 json_pretty.ml baseline (recursive ADT to string, len = 24)
2026-05-09 07:41:01 +00:00
kadane.ml
ocaml: phase 5.1 kadane.ml baseline (max subarray sum = 6)
2026-05-09 10:07:12 +00:00
lambda_calc.ml
…
levenshtein.ml
…
list_ops.ml
…
luhn.ml
ocaml: phase 5.1 luhn.ml baseline (Luhn check-digit, 2/4 inputs valid)
2026-05-09 15:42:01 +00:00
majority_vote.ml
ocaml: phase 5.1 majority_vote.ml baseline (Boyer-Moore majority, [3;3;4;2;4;4;2;4;4] = 4)
2026-05-09 19:27:14 +00:00
mat_mul.ml
ocaml: phase 5.1 mat_mul.ml baseline (3x3 row-major matrix multiply, sum = 621)
2026-05-09 11:00:00 +00:00
max_path_tree.ml
ocaml: phase 5.1 max_path_tree.ml baseline (max root-to-leaf sum, 1+3+7 = 11)
2026-05-09 15:22:28 +00:00
max_run.ml
ocaml: phase 5.1 max_run.ml baseline (longest consecutive run, 4+1+0 = 5)
2026-05-09 18:58:32 +00:00
memo_fib.ml
…
merge_intervals.ml
ocaml: phase 5.1 merge_intervals.ml baseline (LeetCode #56, total length 9+3 = 12)
2026-05-09 18:39:46 +00:00
merge_sort.ml
…
merge_two.ml
ocaml: phase 5.1 merge_two.ml baseline (merge two sorted lists, length*sum = 441)
2026-05-09 17:24:53 +00:00
mod_inverse.ml
ocaml: phase 5.1 mod_inverse.ml baseline (extended Euclidean, inverse sum = 27)
2026-05-09 15:11:46 +00:00
module_use.ml
…
monotonic.ml
ocaml: phase 5.1 monotonic.ml baseline (monotonicity check, 4/5 inputs monotonic)
2026-05-09 19:37:11 +00:00
mortgage.ml
ocaml: phase 5.1 mortgage.ml baseline (monthly payment, 200k @ 5% / 30y = $1073)
2026-05-09 14:52:13 +00:00
mutable_record.ml
…
newton_sqrt.ml
ocaml: phase 5.1 newton_sqrt.ml baseline (Newton's method, sqrt(2)*1000 = 1414)
2026-05-09 08:29:01 +00:00
option_match.ml
…
palindrome.ml
ocaml: phase 5.1 palindrome.ml baseline (two-pointer check, 4/6 inputs match)
2026-05-09 10:31:22 +00:00
pancake_sort.ml
ocaml: phase 5.1 pancake_sort.ml baseline (in-place pancake sort, 9 flips -> 910)
2026-05-09 16:03:22 +00:00
paren_depth.ml
ocaml: phase 5.1 paren_depth.ml baseline (max nesting depth, 3+3+1 = 7)
2026-05-09 16:13:05 +00:00
pascal.ml
ocaml: phase 5.1 pascal.ml baseline (Pascal triangle row 10 middle = C(10,5) = 252)
2026-05-09 09:57:18 +00:00
peano.ml
ocaml: phase 5.1 peano.ml baseline (Peano arithmetic, 5*6 = 30)
2026-05-09 16:38:09 +00:00
pi_leibniz.ml
ocaml: phase 5.1 pi_leibniz.ml baseline + int_of_float fix (1000 terms x 100 = 314)
2026-05-09 07:19:52 +00:00
poly_stack.ml
…
pow_mod.ml
ocaml: phase 5.1 pow_mod.ml baseline (modular exponentiation, sum = 738639)
2026-05-09 17:15:47 +00:00
prefix_sum.ml
ocaml: phase 5.1 prefix_sum.ml baseline (precomputed sums + range queries, 14+25+27 = 66)
2026-05-09 14:21:24 +00:00
pretty_table.ml
ocaml: phase 5.1 pretty_table.ml baseline (Buffer + Printf widths, len = 64)
2026-05-09 09:24:41 +00:00
prime_factors.ml
ocaml: phase 5.1 prime_factors.ml baseline (trial-division, 360 factor sum = 17)
2026-05-09 12:44:02 +00:00
queens.ml
…
quicksort.ml
…
roman.ml
…
rpn.ml
ocaml: phase 5.1 rpn.ml baseline (Reverse Polish Notation evaluator, [3 4 + 2 * 5 -] = 9)
2026-05-09 08:39:56 +00:00
run_decode.ml
ocaml: phase 5.1 run_decode.ml baseline (RLE decode, expansion sum = 21)
2026-05-09 16:47:56 +00:00
run_length.ml
ocaml: phase 5.1 run_length.ml baseline (RLE, sum-of-counts = 11)
2026-05-09 09:47:25 +00:00
run.sh
…
safe_div.ml
ocaml: phase 5.1 safe_div.ml baseline + Result.equal/compare/iter_error (+3 tests, 592 total)
2026-05-09 06:47:47 +00:00
shuffle.ml
ocaml: phase 5.1 shuffle.ml baseline (Fisher-Yates with deterministic Random)
2026-05-09 07:31:33 +00:00
sieve.ml
…
simpson_int.ml
ocaml: phase 5.1 simpson_int.ml baseline (Simpson 1/3 rule, integral_0^1 x^2 -> 10000)
2026-05-09 18:09:33 +00:00
stable_unique.ml
ocaml: phase 5.1 stable_unique.ml baseline (Hashtbl dedupe preserving order, 8+38 = 46)
2026-05-09 16:56:46 +00:00
subseq_check.ml
ocaml: phase 5.1 subseq_check.ml baseline (subsequence test, 3/5 yes)
2026-05-09 18:49:00 +00:00
subset_sum.ml
ocaml: phase 5.1 subset_sum.ml baseline (count subsets of [1..8] summing to 10 = 8)
2026-05-09 13:46:40 +00:00
sum_squares.ml
…
tic_tac_toe.ml
ocaml: phase 5.1 tic_tac_toe.ml baseline (3x3 winner check, X wins top row = 1)
2026-05-09 14:00:49 +00:00
tree_depth.ml
ocaml: phase 5.1 tree_depth.ml baseline (binary tree depth, longest path = 4)
2026-05-09 17:06:10 +00:00
triangle.ml
ocaml: phase 5.1 triangle.ml baseline (Pascal-shape min path sum, 2+3+5+1 = 11)
2026-05-09 15:32:11 +00:00
twosum.ml
ocaml: phase 5.1 twosum.ml baseline (LeetCode #1 one-pass hashmap, index sum = 5)
2026-05-09 13:15:05 +00:00
unique_set.ml
ocaml: phase 5.1 unique_set.ml baseline (Set.Make + IntOrd, count = 9)
2026-05-09 05:44:35 +00:00
validate.ml
ocaml: phase 5.1 validate.ml baseline (Either-based validation, 3 errs * 100 + 117 = 417)
2026-05-09 08:11:07 +00:00
word_count.ml
…
word_freq.ml
ocaml: phase 5.1 word_freq.ml baseline (Map.Make on String, distinct = 8)
2026-05-09 08:01:21 +00:00
xor_cipher.ml
ocaml: phase 5.1 xor_cipher.ml baseline (XOR roll-key encryption, round-trip = 601)
2026-05-09 18:19:02 +00:00
zigzag.ml
ocaml: phase 5.1 zigzag.ml baseline (interleave two lists, sum 1..10 = 55)
2026-05-09 14:30:55 +00:00
zip_unzip.ml
ocaml: phase 5.1 zip_unzip.ml baseline (zip/unzip round-trip, sum-product = 1000)
2026-05-09 11:33:30 +00:00