mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-11-07 14:43:41 +01:00
13 lines
178 B
OCaml
13 lines
178 B
OCaml
type t = float
|
|
|
|
let of_float x =
|
|
assert ( x >= 0. );
|
|
x
|
|
|
|
let to_float x = x
|
|
|
|
let to_string x = string_of_float @@ to_float x
|
|
|
|
let of_string x = of_float @@ float_of_string x
|
|
|