giles
872302ede1
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 37s
Kahn's algorithm BFS topological sort:
let topo_sort n adj =
let in_deg = Array.make n 0 in
for i = 0 to n - 1 do
List.iter (fun j -> in_deg.(j) <- in_deg.(j) + 1) adj.(i)
done;
let q = Queue.create () in
for i = 0 to n - 1 do
if in_deg.(i) = 0 then Queue.push i q
done;
let count = ref 0 in
while not (Queue.is_empty q) do
let u = Queue.pop q in
count := !count + 1;
List.iter (fun v ->
in_deg.(v) <- in_deg.(v) - 1;
if in_deg.(v) = 0 then Queue.push v q
) adj.(u)
done;
!count
Graph: 0->{1,2}; 1->{3}; 2->{3,4}; 3->{5}; 4->{5}; 5.
Acyclic, so all 6 nodes can be ordered.
Tests Queue.{create,push,pop,is_empty}, mutable array via closure.
144 baseline programs total.
149 lines
3.2 KiB
JSON
149 lines
3.2 KiB
JSON
{
|
|
"abundant.ml": 21,
|
|
"ackermann.ml": 125,
|
|
"adler32.ml": 300286872,
|
|
"anagram_check.ml": 2,
|
|
"anagram_groups.ml": 3,
|
|
"anagrams.ml": 3,
|
|
"atm.ml": 120,
|
|
"bag.ml": 3,
|
|
"bowling.ml": 167,
|
|
"bf_full.ml": 6,
|
|
"bisect.ml": 141,
|
|
"bigint_add.ml": 28,
|
|
"bits.ml": 21,
|
|
"balance.ml": 3,
|
|
"base_n.ml": 17,
|
|
"bfs.ml": 6,
|
|
"btree.ml": 39,
|
|
"brainfuck.ml": 75,
|
|
"bsearch.ml": 7,
|
|
"caesar.ml": 215,
|
|
"calc.ml": 13,
|
|
"catalan.ml": 42,
|
|
"closures.ml": 315,
|
|
"coin_change.ml": 6,
|
|
"count_change.ml": 406,
|
|
"csv.ml": 10,
|
|
"dijkstra.ml": 7,
|
|
"exception_handle.ml": 4,
|
|
"exception_user.ml": 26,
|
|
"euler1.ml": 233168,
|
|
"euler16.ml": 26,
|
|
"euler10.ml": 1060,
|
|
"euler14.ml": 97,
|
|
"euler2.ml": 4613732,
|
|
"euler21_small.ml": 504,
|
|
"euler25.ml": 55,
|
|
"euler28.ml": 261,
|
|
"euler29_small.ml": 15,
|
|
"euler30_cube.ml": 1301,
|
|
"euler34_small.ml": 145,
|
|
"euler36.ml": 1772,
|
|
"euler40_small.ml": 15,
|
|
"euler3.ml": 29,
|
|
"euler4_small.ml": 9009,
|
|
"euler5.ml": 232792560,
|
|
"euler6.ml": 25164150,
|
|
"euler7.ml": 541,
|
|
"euler9.ml": 31875000,
|
|
"expr_eval.ml": 16,
|
|
"expr_simp.ml": 22,
|
|
"factorial.ml": 3628800,
|
|
"fib_doubling.ml": 102334155,
|
|
"fib_mod.ml": 391360,
|
|
"fraction.ml": 7,
|
|
"frequency.ml": 5,
|
|
"gcd_lcm.ml": 60,
|
|
"gray_code.ml": 136,
|
|
"grep_count.ml": 3,
|
|
"grid_paths.ml": 210,
|
|
"group_consec.ml": 53,
|
|
"hailstone.ml": 111,
|
|
"harshad.ml": 33,
|
|
"hamming.ml": 4,
|
|
"hanoi.ml": 1023,
|
|
"hist.ml": 75,
|
|
"int_sqrt.ml": 1027,
|
|
"is_prime.ml": 25,
|
|
"fizz_classifier.ml": 540,
|
|
"fizzbuzz.ml": 57,
|
|
"flatten_tree.ml": 28,
|
|
"lis.ml": 6,
|
|
"list_ops.ml": 30,
|
|
"luhn.ml": 2,
|
|
"mat_mul.ml": 621,
|
|
"max_path_tree.ml": 11,
|
|
"max_product3.ml": 300,
|
|
"max_run.ml": 5,
|
|
"mod_inverse.ml": 27,
|
|
"josephus.ml": 11,
|
|
"json_pretty.ml": 24,
|
|
"kadane.ml": 6,
|
|
"kmp.ml": 5,
|
|
"knapsack.ml": 36,
|
|
"lambda_calc.ml": 7,
|
|
"lcs.ml": 4,
|
|
"majority_vote.ml": 4,
|
|
"levenshtein.ml": 11,
|
|
"memo_fib.ml": 75025,
|
|
"mortgage.ml": 1073,
|
|
"merge_intervals.ml": 12,
|
|
"merge_sort.ml": 44,
|
|
"merge_two.ml": 441,
|
|
"module_use.ml": 3,
|
|
"monotonic.ml": 4,
|
|
"newton_sqrt.ml": 1414,
|
|
"number_words.ml": 106,
|
|
"mutable_record.ml": 10,
|
|
"option_match.ml": 5,
|
|
"palindrome.ml": 4,
|
|
"palindrome_sum.ml": 49500,
|
|
"paren_depth.ml": 7,
|
|
"partition.ml": 3025,
|
|
"partition_count.ml": 176,
|
|
"pancake_sort.ml": 910,
|
|
"pascal.ml": 252,
|
|
"peano.ml": 30,
|
|
"perfect.ml": 3,
|
|
"pi_leibniz.ml": 314,
|
|
"prefix_sum.ml": 66,
|
|
"pretty_table.ml": 64,
|
|
"poly_stack.ml": 5,
|
|
"pow_mod.ml": 738639,
|
|
"prime_factors.ml": 17,
|
|
"pythagorean.ml": 16,
|
|
"queens.ml": 2,
|
|
"quickselect.ml": 5,
|
|
"quicksort.ml": 44,
|
|
"roman.ml": 44,
|
|
"reverse_int.ml": 54329,
|
|
"rpn.ml": 9,
|
|
"run_decode.ml": 21,
|
|
"run_length.ml": 11,
|
|
"safe_div.ml": 20,
|
|
"shuffle.ml": 55,
|
|
"simpson_int.ml": 10000,
|
|
"stable_unique.ml": 46,
|
|
"subseq_check.ml": 3,
|
|
"tail_factorial.ml": 479001600,
|
|
"subset_sum.ml": 8,
|
|
"tic_tac_toe.ml": 1,
|
|
"topo_sort.ml": 6,
|
|
"word_freq.ml": 8,
|
|
"xor_cipher.ml": 601,
|
|
"zerosafe.ml": 28,
|
|
"zigzag.ml": 55,
|
|
"zip_unzip.ml": 1000,
|
|
"sieve.ml": 15,
|
|
"sum_squares.ml": 385,
|
|
"tree_depth.ml": 4,
|
|
"triangle.ml": 11,
|
|
"triangle_div.ml": 120,
|
|
"twosum.ml": 5,
|
|
"union_find.ml": 4,
|
|
"unique_set.ml": 9,
|
|
"validate.ml": 417,
|
|
"word_count.ml": 3
|
|
}
|