4 ms·
An example is GNU common lisp Run the below fizzbuzz with /usr/bin/gcl -batch -c-file -compile $1(below file) (declaim (optimize (safety 3) (debug 0) (speed 3))
by FrozenVoid 9y ago
An example is GNU common lisp
Run the below fizzbuzz with /usr/bin/gcl -batch -c-file -compile $1(below file)
(declaim (optimize (safety 3) (debug 0) (speed 3)))
(defun is-mult-p (n multiple)
(= (rem n multiple) 0))
(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)))))))