11 lines
265 B
Text
11 lines
265 B
Text
/**
|
|
Detect division by zero
|
|
*/
|
|
|
|
var ans = 1.0 / 0.0
|
|
if $isinfinite(ans) $print("division by zero: ", ans, "\n")
|
|
|
|
ans = 1 / 0
|
|
if $isinfinite(ans) $print("division by zero: ", ans, "\n")
|
|
|
|
try $print($idiv(1, 0)) catch problem $print("idiv by zero: ", problem, "\n")
|