A-M baby

Task/FizzBuzz/Icon/fizzbuzz-1.icon

@@ -0,0 +1,12 @@
+# straight-forward modulo tester
+procedure main()
+    every i := 1 to 100 do
+        if i % 15 = 0 then
+            write("FizzBuzz")
+        else if i % 5 = 0 then
+            write("Buzz")
+        else if i % 3 = 0 then
+            write("Fizz")
+        else
+            write(i)
+end

Task/FizzBuzz/Icon/fizzbuzz-2.icon

@@ -0,0 +1,5 @@
+# idiomatic modulo tester, 1st alternative
+procedure main()
+    every i := 1 to 100 do
+        write((i % 15 = 0 & "FizzBuzz") | (i % 5 = 0 & "Buzz") | (i % 3 = 0 & "Fizz") | i)
+end

Task/FizzBuzz/Icon/fizzbuzz-3.icon

@@ -0,0 +1,10 @@
+# idiomatic modulo tester, 2nd alternative
+procedure main()
+    every i := 1 to 100 do
+        write(case 0 of {
+                 i % 15 : "FizzBuzz"
+                 i % 5  : "Buzz"
+                 i % 3  : "Fizz"
+                 default: i
+        })
+end

Task/FizzBuzz/Icon/fizzbuzz-4.icon

@@ -0,0 +1,13 @@
+# straight-forward buffer builder
+procedure main()
+    every i := 1 to 100 do {
+        s := ""
+        if i % 3 = 0 then
+            s ||:= "Fizz"
+        if i % 5 = 0 then
+            s ||:= "Buzz"
+        if s == "" then
+            s := i
+        write(s)
+    }
+end

Task/FizzBuzz/Icon/fizzbuzz-5.icon

@@ -0,0 +1,5 @@
+# idiomatic buffer builder, 1st alternative
+procedure main()
+    every i := 1 to 100 do
+        write("" ~== (if i % 3 = 0 then "Fizz" else "") || (if i % 5 == 0 then "Buzz" else "") | i)
+end

Task/FizzBuzz/Icon/fizzbuzz-6.icon

@@ -0,0 +1,8 @@
+# idiomatic buffer builder, 2nd alternative
+procedure main()
+    every i := 1 to 100 do {
+        s   := if i%3 = 0 then "Fizz" else ""
+        s ||:= if i%5 = 0 then "Buzz"
+        write(("" ~= s) | i)
+    }
+end