screwlisp on Nostr: npub1jw4gj…f99y9 I see your haskell and raise you the common lisp loop facility ...

npub1jw4gjyjd8fqhduqfw23k8yne7fgr60wyulg8wnq02ef47d0fthmq8f99y9 (npub1jw4…99y9) I see your haskell and raise you the common lisp loop facility
(loop for n from 1 to 100
for fizzes = (loop for x below 100 by 3 collect x)
then (or (member n fizzes) fizzes)
for buzzes = (loop for x below 100 by 5 collect x)
then (or (member n buzzes) buzzes)
for fizzp = (equal n (car fizzes))
for buzzp = (equal n (car buzzes))
when fizzp do (princ 'fizz)
when buzzp do (princ 'buzz)
do (terpri))

;; OK OK HEAR ME OUT

;; come on