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