![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
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 · 999 阅读 · 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 · 1127 阅读 · 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 · 5499 阅读 · 0 评论