Data Update

Task/FizzBuzz/YAMLScript/fizzbuzz-3.ys

@@ -1,9 +1,13 @@
-map:
-- (x):
-  - s =:
-      str:
-      - if (zero? mod(x 3)): "Fizz"
-      - if (zero? mod(x 5)): "Buzz"
-  - println:
-      if (empty? s): [x, s]
-- range(1 101)
+map(say):
+  loop [i 1, l []]:
+    if (i > 100):
+    - l
+    - ^^^:
+      - inc(i)
+      - conj:
+        - l
+        - ???:
+            zero?(mod(i 15)) : "FizzBuzz"
+            zero?(mod(i 5))  : "Buzz"
+            zero?(mod(i 3))  : "Fizz"
+            :else: i