7 lines
92 B
Text
7 lines
92 B
Text
|
let div_check x y =
|
||
|
|
try
|
||
|
|
ignore (x / y);
|
||
|
|
false
|
||
|
|
with Division_by_zero ->
|
||
|
|
true
|