2022-01-30 00:55:42 +00:00
|
|
|
open General
|
|
|
|
|
2021-12-18 09:20:30 +00:00
|
|
|
|
2022-02-04 03:06:51 +00:00
|
|
|
external ( + ) : float -> float -> float = "%addfloat"
|
2021-12-18 09:20:30 +00:00
|
|
|
|
2022-02-04 03:06:51 +00:00
|
|
|
external ( - ) : float -> float -> float = "%subfloat"
|
2021-12-18 09:20:30 +00:00
|
|
|
|
2022-02-04 03:06:51 +00:00
|
|
|
external ( * ) : float -> float -> float = "%mulfloat"
|
|
|
|
|
|
|
|
external ( / ) : float -> float -> float = "%divfloat"
|
2022-01-20 09:07:42 +00:00
|
|
|
|
|
|
|
(** Converts the string to a float, returning option type to account for invalid strings. *)
|
2022-02-04 03:06:51 +00:00
|
|
|
val of_string : string -> float option
|
|
|
|
|
|
|
|
(** Converts the int to a float. *)
|
|
|
|
val of_int : int -> float
|