Detect division by zero: Difference between revisions
→{{header|NewLISP}}
Line 1,361:
=={{header|NewLISP}}==
<lang newlisp>#! /usr/local/bin/newlisp
(define (check-division x y)
Line 1,367 ⟶ 1,366:
(if (not (integer? check-zero))
(setq check-zero "Division by zero."))
check-zero
)
(println (check-division 10 4))
Line 1,378 ⟶ 1,376:
(exit)</lang>
Output:
<pre>
2
Division by zero.
4
Division by zero.
</pre>
=={{header|Nim}}==
| |||