Data update

Task/FizzBuzz/Common-Lisp/fizzbuzz-8.lisp

@@ -1,20 +1,15 @@
-;; Project : FizzBuzz
+(defun range (min max)
+  (loop
+    :for x :from min :to max
+    :collect x))
 
-(defun fizzbuzz (&optional n)
-          (let ((n (or n 1)))
-          (if (> n 100)
-              nil
-              (progn
-              (let ((mult-3 (is-mult-p n 3))
-              (mult-5 (is-mult-p n 5)))
-              (if mult-3
-                  (princ "Fizz"))
-              (if mult-5
-                  (princ "Buzz"))
-              (if (not (or mult-3 mult-5))
-                  (princ n))
-              (princ #\linefeed)
-              (fizzbuzz (+ n 1)))))))
-(defun is-mult-p (n multiple)
-          (= (rem n multiple) 0))
-(fizzbuzz 1)
+(defun fizzbuzz ()
+  (map 'nil #'(lambda (n)
+                (princ
+                  (cond
+                    ((zerop (mod n 15)) "FizzBuzz!")
+                    ((zerop (mod n 5)) "Buzz!")
+                    ((zerop (mod n 3)) "Fizz!")
+                    (t n))
+                  (terpri)))
+            (range 1 100)))

Task/FizzBuzz/Common-Lisp/fizzbuzz-9.lisp

@@ -0,0 +1,20 @@
+;; Project : FizzBuzz
+
+(defun fizzbuzz (&optional n)
+          (let ((n (or n 1)))
+          (if (> n 100)
+              nil
+              (progn
+              (let ((mult-3 (is-mult-p n 3))
+              (mult-5 (is-mult-p n 5)))
+              (if mult-3
+                  (princ "Fizz"))
+              (if mult-5
+                  (princ "Buzz"))
+              (if (not (or mult-3 mult-5))
+                  (princ n))
+              (princ #\linefeed)
+              (fizzbuzz (+ n 1)))))))
+(defun is-mult-p (n multiple)
+          (= (rem n multiple) 0))
+(fizzbuzz 1)