tracks/ocaml/exercises/prime-factors/example.ml in trackler-2.2.1.110 vs tracks/ocaml/exercises/prime-factors/example.ml in trackler-2.2.1.111
- old
+ new
@@ -1,9 +1,9 @@
-open Core
+open Base
let square_root_trunc n =
(* Square root is not defined on int64 *)
- Int64.to_float n |> sqrt |> Int64.of_float
+ 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 =