September 2017 Update

Task/FizzBuzz/Genyris/fizzbuzz.genyris

@@ -0,0 +1,20 @@
+@prefix u "http://www.genyris.org/lang/utilities#"
+
+def fizzbuzz (n)
+    map-left ^((3 = 'fizz') (5 = 'buzz'))
+        lambda (d)
+            cond
+                (equal? 0 (% n d!left))
+                    d!right
+                else
+                    ''
+
+
+for n in (range 1 100)
+    define fb (''(.join (fizzbuzz n)))
+    u:format "%a\n"
+        cond
+            (equal? fb '')
+                n
+            else
+                fb