Data Update

Task/FizzBuzz/YAMLScript/fizzbuzz-1.ys

@@ -1,9 +1,9 @@
-map:
-- (x):
-  - println:
-    - cond: [
-        zero?(mod(x 15)), "FizzBuzz",
-        zero?(mod(x 5)),  "Buzz",
-        zero?(mod(x 3)),  "Fizz",
-        :else, x ]
-- range(1, 101)
+map(say):
+  map:
+  - fn (x):
+      s =:
+        str:
+        - (zero? mod(x 3)) ?: "Fizz"
+        - (zero? mod(x 5)) ?: "Buzz"
+      if (empty? s): x, s
+  - (1 .. 100)

Task/FizzBuzz/YAMLScript/fizzbuzz-2.ys

@@ -1,9 +1,9 @@
-loop [i 1]:
-- println:
-    cond(
-      zero?(mod(i 15)) "FizzBuzz"
-      zero?(mod(i 5))  "Buzz"
-      zero?(mod(i 3))  "Fizz"
-      :else i)
-- if (i < 100):
-    recur: inc(i)
+map(say):
+  map:
+  - fn (x):
+      ???:
+        zero?(mod(x 15)) : "FizzBuzz"
+        zero?(mod(x 5))  : "Buzz"
+        zero?(mod(x 3))  : "Fizz"
+        :else: x
+  - (1 .. 100)

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