lan126

摘要： 1 (defparameter *small* 1) 2 (defparameter *big* 100) 3 4 (defun guess-my-number () 5 (ash (+ *small* *big*) -1)) 6 7 (defun smaller () 8 (setf *big* (1- (guess-my-number))) 9 (gue... 阅读全文