(defparameter N (parse-integer (read-line))) (defparameter kouho '(0 1 2 3 4 5 6 7 8 9 )) (defparameter x '()) (defparameter yn "Y" ) (loop for line = (read-line nil nil) while line do (setq line (read-from-string (concatenate 'string "(" line ")" ))) (setq yn (nth 4 line )) (if (eq yn 'YES) (setq kouho (intersection kouho line)) (setq kouho (set-difference kouho line))) ) (format 't "~A~%" (car kouho))