1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type t = float
let of_string f =
try Some (float_of_string f) with
| _ -> None
let to_string = string_of_float
let compare x y = Ordering.of_int (compare x y)
let max x y =
match compare x y with
| Eq
| Gt ->
x
| Lt -> y