2017年8月11日
land-of-lisp-first-program
摘要： 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... 阅读全文
posted @ 2017-08-11 18:33 lan126 阅读(122) 评论(0) 推荐(0) 编辑