(setq x 0) (setq i 1) (setq tic "tic") (setq toe "toe") (loop (terpri) (setq x (+ x i)) (if (/= (* (mod x 3) (mod x 7)) 0) (print x) (if (= (mod x 3) (mod x 7)) (print "tic toe") ((if (= (mod x 3) 0) (print tic) ) (if (= (mod x 7) 0) (print toe) )))) (when (> x 60) (return x)) )
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more