Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
clisp macro for dummies
(defun primep (number) (when (> number 1) (loop for fac from 2 to (isqrt number) never (zerop (mod number fac))))) (defun next-prime (number) (loop for n from number when (primep n) return n)) ; idea macro ; (do-primes (p 0 19) ; (format t "~d " p)) ; using a do-loop (do ((p (next-prime 0) (next-prime (1+ p)))) ((> p 19)) (format t "~d " p)) ; (p 0 19) (defmacro do-primes (var-and-range &rest body) (let ((var (first var-and-range)) (start (second var-and-range)) (end (third var-and-range))) `(do ((,var (next-prime ,start) (next-prime (1+ ,var)))) ((> ,var ,end)) ,@body)))
run
|
edit
|
history
|
help
0
Homework.Lisp
Do-combinations
Repeticao
03_Oliinyk_01
EquacaoDoSegundoGrau
Manhattan distance in common Lisp
Lisp Factorial (Less Good)
PE 162
S17016281_ACTIVIDAD_20
ズンドコキヨシ for CommonLisp