まずはFizzBuzz
よし、できた
(do ((i 1 (1+ i))) ((< 100 i)) (if (= (mod i 3) 0) (princ "Fizz") ) (if (= (mod i 5) 0) (princ "Buzz") ) (if (and (< 0 (mod i 3)) (< 0 (mod i 5))) (princ i) ) (terpri) )
空白除去バージョン
(do((i 1(1+ i)))((< 100 i))(if(=(mod i 3)0)(princ "Fizz"))(if(=(mod i 5)0)(princ "Buzz"))(if(and(< 0(mod i 3))(< 0(mod i 5)))(princ i))(terpri))