RosettaCodeData/Task/Detect-division-by-zero/Oforth/detect-division-by-zero.fth
2023-07-01 13:44:08 -04:00

4 lines
99 B
Forth

: divideCheck(n)
| e |
try: e [ 128 n / ] when: [ "Zero detected..." . ]
"Leaving" println ;