Data update

Task/FizzBuzz/NewLISP/fizzbuzz-2.l

@@ -0,0 +1,39 @@
+(define (try-all) ;; The arguments are in (args) or $args.
+  (let (cnt (length (filter true? $args)))
+    (if (zero? cnt) nil cnt)))
+
+(define (fizz)
+  (define (say? n s) (if (= 0 (% i n)) (print s))) ;; Dynamic scoping.
+  (for (i 1 21)
+    (unless
+      (try-all
+        (say? 3 'fizz)
+        (say? 5 'buzz)
+        (say? 7 'boom)
+        (say? 11 'crux))
+      (print i))
+    (println)))
+
+(fizz)
+
+1
+2
+fizz
+4
+buzz
+fizz
+boom
+8
+fizz
+buzz
+crux
+fizz
+13
+boom
+fizzbuzz
+16
+17
+fizz
+19
+buzz
+fizzboom

Task/FizzBuzz/NewLISP/fizzbuzz-3.l

@@ -0,0 +1,47 @@
+(define (m-prime-gen)
+  (fn ( , n)  ;; Unused parameter n is our local variable.
+    ;; Self-modifying code.
+    (until (= 1 (length (factor (setf n (++ 2))))))
+    n))
+
+(define (try-all) ;; The arguments are in (args) or $args.
+  (let (cnt (length (filter true? $args)))
+    (if (zero? cnt) nil cnt)))
+
+(define (fizz)
+  (define (say? n s) (if (= 0 (% i n)) (print s))) ;; Dynamic scoping.
+  (for (i 1 21)
+    (let (p (m-prime-gen))
+      (unless
+        (try-all
+          (say? (p) 'fizz)
+          (say? (p) 'buzz)
+          (say? (p) 'boom)
+          (say? (p) 'crux)
+          (say? (p) 'ZAP))
+        (print i))
+      (println))))
+
+(fizz)
+
+1
+2
+fizz
+4
+buzz
+fizz
+boom
+8
+fizz
+buzz
+crux
+fizz
+ZAP
+boom
+fizzbuzz
+16
+17
+fizz
+19
+buzz
+fizzboom