coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
58ea001f128222d9926595276f10d15b6749ccae
rose-ash/lib/ocaml/baseline
History
giles 58ea001f12
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 47s
Details
ocaml: phase 5.1 perfect.ml baseline (count perfect numbers <= 500 = 3) 
Perfect numbers = those where the proper-divisor sum equals n. Three
exist under 500: 6, 28, 496. (8128 is the next; 33550336 the one
after that.)

Same div_sum machinery as euler21_small.ml / abundant.ml (the
trial-division up to sqrt-n).

Original 10000 limit timed out at 10 minutes under contention (496
itself takes thousands of trials at the inner loop). 500 stays under
budget while still finding all three small perfects.

125 baseline programs total — milestone.
2026-05-10 01:02:18 +00:00
..
abundant.ml
ocaml: phase 5.1 abundant.ml baseline (count abundant numbers < 100 = 21)
2026-05-10 00:36:29 +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
ocaml: phase 5.1 anagrams.ml baseline (18/18 pass)
2026-05-08 19:57:09 +00:00
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
ocaml: phase 5.1 bfs.ml baseline (20/20 pass)
2026-05-08 21:05:32 +00:00
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
ocaml: phase 5.1 brainfuck.ml baseline (subset interpreter)
2026-05-09 02:24:45 +00:00
bsearch.ml
ocaml: phase 5.1 bsearch.ml baseline (binary search, position sum = 7)
2026-05-09 10:40:49 +00:00
btree.ml
ocaml: phase 5.1 btree.ml baseline (13/13 pass)
2026-05-08 17:52:49 +00:00
caesar.ml
ocaml: phase 5.1 caesar.ml baseline (ROT13 + s.[i] + Char ops)
2026-05-09 00:13:11 +00:00
calc.ml
ocaml: phase 5.1 calc.ml baseline (11/11 pass) + inline let-rec-and parser fix
2026-05-08 16:53:44 +00:00
catalan.ml
ocaml: phase 5.1 catalan.ml baseline (Catalan number C(5) = 42)
2026-05-09 21:06:10 +00:00
closures.ml
ocaml: phase 5.1 baseline 8/8 — quicksort + exceptions + closures
2026-05-08 13:44:28 +00:00
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
ocaml: phase 5.1 csv.ml baseline (split + int_of_string + fold_left)
2026-05-09 01:47:27 +00:00
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
euler3.ml
ocaml: phase 5.1 euler3.ml baseline (largest prime factor of 13195 = 29)
2026-05-09 22:21:16 +00:00
euler4_small.ml
ocaml: phase 5.1 euler4_small.ml baseline (largest 2-digit palindrome product = 9009)
2026-05-09 21:59:23 +00:00
euler5.ml
ocaml: phase 5.1 euler5.ml baseline (smallest multiple of 1..20 = 232792560)
2026-05-09 21:35:59 +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
euler7.ml
ocaml: phase 5.1 euler7.ml baseline (100th prime = 541)
2026-05-09 22:11:11 +00:00
euler9.ml
ocaml: phase 5.1 euler9.ml baseline (Project Euler #9, abc = 31875000)
2026-05-09 20:36:43 +00:00
euler10.ml
ocaml: phase 5.1 euler10.ml baseline (sum of primes <= 100 = 1060, scaled-down PE10)
2026-05-09 21:46:16 +00:00
euler14.ml
ocaml: phase 5.1 euler14.ml baseline (longest Collatz under 100, starting n = 97)
2026-05-09 22:53:27 +00:00
euler16.ml
ocaml: phase 5.1 euler16.ml baseline (digit sum of 2^15 = 26)
2026-05-09 22:43:45 +00:00
euler21_small.ml
ocaml: phase 5.1 euler21_small.ml baseline (sum of amicable numbers <= 300 = 504)
2026-05-09 23:27:15 +00:00
euler25.ml
ocaml: phase 5.1 euler25.ml baseline (first 12-digit Fibonacci index = 55)
2026-05-09 22:31:27 +00:00
euler28.ml
ocaml: phase 5.1 euler28.ml baseline (sum of diagonals in 7x7 spiral = 261)
2026-05-09 23:03:06 +00:00
euler29_small.ml
ocaml: phase 5.1 euler29_small.ml baseline (distinct a^b for 2<=a,b<=5 = 15)
2026-05-09 23:37:36 +00:00
euler30_cube.ml
ocaml: phase 5.1 euler30_cube.ml baseline (sum of digit-cube narcissistic numbers <= 999 = 1301)
2026-05-09 23:17:00 +00:00
euler34_small.ml
ocaml: phase 5.1 euler34_small.ml baseline (factorions <= 2000 = 145)
2026-05-09 23:50:25 +00:00
euler36.ml
ocaml: phase 5.1 euler36.ml baseline (sum of double-base palindromes <= 1000 = 1772)
2026-05-10 00:26:46 +00:00
euler40_small.ml
ocaml: phase 5.1 euler40_small.ml baseline (Champernowne digit product = 15)
2026-05-10 00:09:57 +00:00
exception_handle.ml
ocaml: phase 5.1 baseline 8/8 — quicksort + exceptions + closures
2026-05-08 13:44:28 +00:00
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 perfect.ml baseline (count perfect numbers <= 500 = 3)
2026-05-10 01:02:18 +00:00
expr_eval.ml
ocaml: phase 5.1 expr_eval.ml baseline (9/9 pass)
2026-05-08 15:01:04 +00:00
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
ocaml: phase 5.1 baseline OCaml programs (5/5 pass) + lookahead boundary
2026-05-08 13:33:24 +00:00
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
fizz_classifier.ml
ocaml: phase 5.1 fizz_classifier.ml baseline (FizzBuzz with polymorphic variants, 1..30 weighted = 540)
2026-05-09 20:56:31 +00:00
fizzbuzz.ml
ocaml: phase 5.1 fizzbuzz.ml baseline (12/12 pass)
2026-05-08 17:44:07 +00:00
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
ocaml: phase 5.1 frequency.ml baseline + Format module alias (+2 tests, 498 total)
2026-05-09 01:11:53 +00:00
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
is_prime.ml
ocaml: phase 5.1 is_prime.ml baseline (count primes <= 100 = 25)
2026-05-09 21:16:40 +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
ocaml: phase 5.1 lambda_calc.ml baseline (17/17 pass)
2026-05-08 19:49:08 +00:00
levenshtein.ml
ocaml: phase 5.1 levenshtein.ml baseline (no-memo edit distance, sum=11)
2026-05-09 00:23:58 +00:00
list_ops.ml
ocaml: phase 5.1 baseline OCaml programs (5/5 pass) + lookahead boundary
2026-05-08 13:33:24 +00:00
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_product3.ml
ocaml: phase 5.1 max_product3.ml baseline (max product of 3, with negatives -> 300)
2026-05-09 20:46:42 +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
ocaml: phase 5.1 memo_fib.ml baseline (16/16 pass)
2026-05-08 19:10:49 +00:00
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
ocaml: phase 5.1 merge_sort.ml baseline (user mergesort, sum=44)
2026-05-09 05:00:50 +00:00
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
ocaml: phase 5.1 baseline OCaml programs (5/5 pass) + lookahead boundary
2026-05-08 13:33:24 +00:00
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
ocaml: phase 5.1 mutable_record.ml baseline (14/14 pass)
2026-05-08 18:43:19 +00:00
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
ocaml: phase 5.1 baseline OCaml programs (5/5 pass) + lookahead boundary
2026-05-08 13:33:24 +00:00
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
partition.ml
ocaml: phase 5.1 partition.ml baseline (stable partition, evens*100 + odds = 3025)
2026-05-09 21:26:31 +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
perfect.ml
ocaml: phase 5.1 perfect.ml baseline (count perfect numbers <= 500 = 3)
2026-05-10 01:02:18 +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
ocaml: phase 1+5.1 type aliases + poly_stack baseline (+3 tests, 469 / 19 baseline)
2026-05-08 20:49:26 +00:00
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
ocaml: phase 5.1 queens.ml baseline (15/15 pass)
2026-05-08 19:04:04 +00:00
quicksort.ml
ocaml: phase 5.1 baseline 8/8 — quicksort + exceptions + closures
2026-05-08 13:44:28 +00:00
roman.ml
ocaml: phase 5.1 roman.ml baseline + top-level 'let () = expr'
2026-05-08 23:40:36 +00:00
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
ocaml: phase 5.1 caesar.ml baseline (ROT13 + s.[i] + Char ops)
2026-05-09 00:13:11 +00:00
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
ocaml: phase 5.1 sieve.ml baseline (Sieve of Eratosthenes)
2026-05-09 02:16:18 +00:00
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
ocaml: phase 5.1 baseline OCaml programs (5/5 pass) + lookahead boundary
2026-05-08 13:33:24 +00:00
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
ocaml: phase 5.1 word_count.ml baseline (10/10 pass)
2026-05-08 16:11:03 +00:00
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