9 lines
160 B
Text
9 lines
160 B
Text
func divZero a b .
|
|
r = a / b
|
|
if r <> r or abs r = 1 / 0 : return 1
|
|
return 0
|
|
.
|
|
print divZero 5 7
|
|
print divZero -2 0
|
|
print divZero 3 0
|
|
print divZero 0 0
|