Contents

open Base

let square_root_trunc n =
    (* Square root is not defined on int64 *)
    Int64.to_float n |> Float.sqrt |> Int64.of_float

let rec factors_of' = function
    | 1L -> []
    | n  -> factors_of_loop n
and factors_of_loop n =
    let open Int64 in
    let i = ref (square_root_trunc n) in
    let res = ref None in
    while !i > 1L && Option.is_none !res do
        let i' = !i in
        if (rem n i') = 0L then (
            let m = n / i' in
            res := Some (List.concat [factors_of' i'; factors_of' m]));
        i := (i' - 1L);
    done;
    Option.value ~default:[n] !res

let factors_of n = List.sort ~compare:Int64.compare (factors_of' n)

Version data entries

42 entries across 42 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.158	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.157	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.156	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.155	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.154	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.153	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.152	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.151	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.150	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.149	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.148	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.147	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.146	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.145	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.144	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.143	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.142	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.141	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.140	tracks/ocaml/exercises/prime-factors/example.ml