Detect division by zero: Difference between revisions

Content added Content deleted

Inline

@@ Line 760: / Line 760: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="easylang">
-proc checkDivZero a b . .
+func checkDivZero a b .
-   result$ = a / b
+   r = a / b
-   if result$ = "-nan" or result$ = "inf" or result$ = "-inf"
+   if r = number "nan" or r = number "inf" or r = number "-inf"
+      return 1
-      print "Found division by zero (" & a & " / " & b & ")"
    .
 .
-call checkDivZero 5 7
+print checkDivZero 5 7
-call checkDivZero 1 0
+print checkDivZero -1 0
 </syntaxhighlight>
-{{out}}
-<pre>Found division by zero (1 / 0)</pre>
 =={{header|ECL}}==