Contents

open Core

let square_root_trunc n =
    (* Square root is not defined on int64 but it is on big_int *)
    let open Big_int in
    big_int_of_int64 n |> sqrt_big_int |> int64_of_big_int

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 ~cmp:Int64.compare (factors_of' n)

Version data entries

138 entries across 138 versions & 1 rubygems

Version	Path
trackler-2.2.1.57	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.56	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.55	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.54	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.53	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.52	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.51	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.50	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.49	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.48	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.47	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.46	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.45	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.44	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.43	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.42	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.41	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.40	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.39	tracks/ocaml/exercises/prime-factors/example.ml
trackler-2.2.1.38	tracks/ocaml/exercises/prime-factors/example.ml