Files
rose-ash/lib/ocaml/baseline/expected.json
giles 7de014cd75
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 40s
ocaml: phase 5.1 hailstone.ml baseline (Collatz length from 27 = 111 steps)
Iterative Collatz / hailstone sequence:

  let collatz_length n =
    let m = ref n in
    let count = ref 0 in
    while !m > 1 do
      if !m mod 2 = 0 then m := !m / 2
      else m := 3 * !m + 1;
      count := !count + 1
    done;
    !count

27 is the famous 'long-running' Collatz starter. Reaches a peak of
9232 mid-sequence and takes 111 steps to bottom out at 1.

64 baseline programs total.
2026-05-09 13:30:46 +00:00

69 lines
1.4 KiB
JSON

{
"ackermann.ml": 125,
"anagram_check.ml": 2,
"anagrams.ml": 3,
"atm.ml": 120,
"bag.ml": 3,
"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,
"closures.ml": 315,
"coin_change.ml": 6,
"csv.ml": 10,
"exception_handle.ml": 4,
"exception_user.ml": 26,
"expr_eval.ml": 16,
"expr_simp.ml": 22,
"factorial.ml": 3628800,
"fraction.ml": 7,
"frequency.ml": 5,
"gcd_lcm.ml": 60,
"grep_count.ml": 3,
"hailstone.ml": 111,
"hanoi.ml": 1023,
"fizzbuzz.ml": 57,
"flatten_tree.ml": 28,
"list_ops.ml": 30,
"mat_mul.ml": 621,
"json_pretty.ml": 24,
"kadane.ml": 6,
"lambda_calc.ml": 7,
"levenshtein.ml": 11,
"memo_fib.ml": 75025,
"merge_sort.ml": 44,
"module_use.ml": 3,
"newton_sqrt.ml": 1414,
"mutable_record.ml": 10,
"option_match.ml": 5,
"palindrome.ml": 4,
"pascal.ml": 252,
"pi_leibniz.ml": 314,
"pretty_table.ml": 64,
"poly_stack.ml": 5,
"prime_factors.ml": 17,
"queens.ml": 2,
"quicksort.ml": 44,
"roman.ml": 44,
"rpn.ml": 9,
"run_length.ml": 11,
"safe_div.ml": 20,
"shuffle.ml": 55,
"word_freq.ml": 8,
"zip_unzip.ml": 1000,
"sieve.ml": 15,
"sum_squares.ml": 385,
"twosum.ml": 5,
"unique_set.ml": 9,
"validate.ml": 417,
"word_count.ml": 3
}