giles
7c40506571
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 23s
User-implemented mergesort that exercises features added across the
last few iterations:
let rec split lst = match lst with
| x :: y :: rest ->
let (a, b) = split rest in (* iter 98 let-tuple destruct *)
(x :: a, y :: b)
| ...
let rec merge xs ys = match xs with
| x :: xs' ->
match ys with (* nested match-in-match *)
| y :: ys' -> ...
...
List.fold_left (+) 0 (sort [...]) (* iter 89 (op) section *)
Sum of [3;1;4;1;5;9;2;6;5;3;5] = 44 regardless of order, so the
result is also a smoke test of the implementation correctness — if
merge_sort drops or duplicates an element the sum diverges. 26
baseline programs total.
31 lines
605 B
JSON
31 lines
605 B
JSON
{
|
|
"anagrams.ml": 3,
|
|
"bfs.ml": 6,
|
|
"btree.ml": 39,
|
|
"brainfuck.ml": 75,
|
|
"caesar.ml": 215,
|
|
"calc.ml": 13,
|
|
"closures.ml": 315,
|
|
"csv.ml": 10,
|
|
"exception_handle.ml": 4,
|
|
"expr_eval.ml": 16,
|
|
"factorial.ml": 3628800,
|
|
"frequency.ml": 5,
|
|
"fizzbuzz.ml": 57,
|
|
"list_ops.ml": 30,
|
|
"lambda_calc.ml": 7,
|
|
"levenshtein.ml": 11,
|
|
"memo_fib.ml": 75025,
|
|
"merge_sort.ml": 44,
|
|
"module_use.ml": 3,
|
|
"mutable_record.ml": 10,
|
|
"option_match.ml": 5,
|
|
"poly_stack.ml": 5,
|
|
"queens.ml": 2,
|
|
"quicksort.ml": 44,
|
|
"roman.ml": 44,
|
|
"sieve.ml": 15,
|
|
"sum_squares.ml": 385,
|
|
"word_count.ml": 3
|
|
}
|