2022-01-30 11:55:42 +11:00
|
|
|
open General
|
2021-12-18 20:20:30 +11:00
|
|
|
|
2022-01-30 11:55:42 +11:00
|
|
|
let ( + ) a b = FromStdlib.plus_float a b
|
2022-01-20 20:07:42 +11:00
|
|
|
|
2022-01-30 11:55:42 +11:00
|
|
|
let ( - ) a b = FromStdlib.minus_float a b
|
2022-01-20 20:07:42 +11:00
|
|
|
|
2022-01-30 11:55:42 +11:00
|
|
|
let ( * ) a b = FromStdlib.multiply_float a b
|
2022-01-20 20:07:42 +11:00
|
|
|
|
2022-01-30 11:55:42 +11:00
|
|
|
let ( / ) a b = FromStdlib.divide_float a b
|
2022-01-20 20:07:42 +11:00
|
|
|
|
2022-01-30 11:55:42 +11:00
|
|
|
let of_string = FromStdlib.float_of_string_opt
|