3 lines
60 B
OCaml
3 lines
60 B
OCaml
|
|
let div_check x y =
|
||
|
|
classify_float (x /. y) = FP_infinite
|