Source file `float.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type t = float

let repr = Repr.float

let of_string f =
  try Some (float_of_string f) with
  | _ -> None
;;

let to_string = string_of_float
let equal = Stdlib.Float.equal
let compare x y = Ordering.of_int (compare x y)
let to_dyn = Repr.to_dyn repr

let max x y =
  match compare x y with
  | Eq | Gt -> x
  | Lt -> y
;;