gross

fizzbuzz.lisp

;;;; Two very similar versions of fizzbuzz

;;; Will break if n is not a number
(defun fizzbuzz (n)
    (let ((x (read-from-string n)))
        (cond
            ((eq (mod x 15) 0)
                "FizzBuzz"
            )
            ((eq (mod x 5) 0)
                "Buzz"
            )
            ((eq (mod x 3) 0)
                "Fizz"
            )
        )
    )
)

;;; Will not break if n is not a number
(defun fizzbuzz (n)
    (let ((x (read-from-string n)))
        (cond
            ((eq (typep x 'integer) T)
                (cond
                    ((eq (mod x 15) 0)
                        "FizzBuzz"
                    )
                    ((eq (mod x 5) 0)
                        "Buzz"
                    )
                    ((eq (mod x 3) 0)
                        "Fizz"
                    )
                )
            )
            (t
                "Not a number."
            )
        )
    )
)