langs a-z

Task/FizzBuzz/SNOBOL4/fizzbuzz.sno

@@ -0,0 +1,12 @@
+        I = 1
+LOOP    FIZZBUZZ = ""
+        EQ(REMDR(I, 3), 0)              :F(TRY_5)
+        FIZZBUZZ = FIZZBUZZ "FIZZ"
+TRY_5   EQ(REMDR(I, 5), 0)              :F(DO_NUM)
+        FIZZBUZZ = FIZZBUZZ "BUZZ"
+DO_NUM  IDENT(FIZZBUZZ, "")             :F(SHOW)
+        FIZZBUZZ = I
+SHOW    OUTPUT = FIZZBUZZ
+        I = I + 1
+        LE(I, 100)                      :S(LOOP)
+END