langs a-z

Task/Detect-division-by-zero/SNOBOL4/detect-division-by-zero.sno

@@ -0,0 +1,13 @@
+        define('zdiv(x,y)') :(zdiv_end)
+zdiv    &errlimit = 1; setexit(.ztrap)
+        zdiv = x / y :(return)
+ztrap   zdiv = ?(&errtype ? (14 | 262)) 'Division by zero' :s(continue)f(abort)
+zdiv_end
+
+*       # Test and display
+        output = '1/1     = ' zdiv(1,1)      ;* Integers non-zero
+        output = '1.0/1.0 = ' zdiv(1.0,1.0)  ;* Reals non-zero
+        output = '1/0     = ' zdiv(1,0)      ;* Integers zero
+        output = '1.0/0.0 = ' zdiv(1.0,0.0)  ;* Reals zero
+        output = 'Zero checks complete'
+end