RosettaCodeData/Task/Detect-division-by-zero/Oforth/detect-division-by-zero.oforth
2016-12-05 23:44:36 +01:00

4 lines
99 B
Text

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