LISP
关注
分享
扫一扫
BHR_kramer
这个作者很懒，什么都没留下…
展开
-
ash 函数
看land of lisp的时候发现了这个函数。这个函数的作用如下CL-USER> (ash 8 -1)4CL-USER> (ash 8 1)16可见，它的作用就是把左边的参数转化成2进制形式，然后，右移一位或者左移一位。其实也就是除以2或者乘以2。 当然，如果你把右边的 -1 ， 1 换成 2 的话，那么就是左移2位或者右移两位。（负数的情况下是右移）当时有个小疑问，我原创 2012-05-31 10:30:04 · 1081 阅读 · 0 评论 -
第一篇LISP小程序
代码(defparameter *small* 1)(defparameter *big* 100)(defun guess-my-number() (ash (+ *small* *big*) -1))(defun smaller() (setf *big* (1- (guess-my-number))) (guess-my-number))(defun b原创 2012-05-31 17:50:13 · 1201 阅读 · 0 评论 -
LSIP 疑惑1
同一个参数 ’（+ 1 2） 为什么返回却不同？CL-USER> (print '(+ 1 2 ))(+ 1 2) (+ 1 2)CL-USER> (print (read))'(+ 1 2)'(+ 1 2) '(+ 1 2)原创 2012-10-11 10:37:53 · 5550 阅读 · 0 评论