Detect division by zero: Difference between revisions
Content added Content deleted
Line 1,358: | Line 1,358: | ||
at zz.divide(zz.nrx:20) |
at zz.divide(zz.nrx:20) |
||
at zz.main(zz.nrx:47)</pre> |
at zz.main(zz.nrx:47)</pre> |
||
=={{header|NewLISP}}== |
|||
<lang newlisp>#! /usr/local/bin/newlisp |
|||
(define (check-division x y) |
|||
(catch (/ x y) 'check-zero) |
|||
(if (not (integer? check-zero)) |
|||
(setq check-zero "Division by zero.")) |
|||
check-zero |
|||
) |
|||
(println (check-division 10 4)) |
|||
(println (check-division 4 0)) |
|||
(println (check-division 20 5)) |
|||
(println (check-division 11 0)) |
|||
(exit)</lang> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |