币种?语言要求?
--
--
Lisp-cn(Lisp中文用户组)
CLUG http://lisp.org.cn
---
您收到此邮件是因为您订阅了 Google 网上论坛的“Lisp-cn(Lisp中文用户组)”论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 lisp-cn+u...@googlegroups.com。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
不上不下
--
--
Lisp-cn(Lisp中文用户组)
CLUG http://lisp.org.cn
---
您收到此邮件是因为您订阅了 Google 网上论坛的“Lisp-cn(Lisp中文用户组)”论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 lisp-cn+u...@googlegroups.com。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
有能力的是可以去瞧瞧
--
--
看不出来吗?那就跑一下吧~ :-)
随便给一两个足够简单亲民的CL题目(我觉得可以当面试题哦!)吧。觉得自己水平ok的可以试试。
P.S. 某些人就别吐槽我了,没意思。
代码执行结果:包括返回值,异常,打印出来的信息。
1. 代码的执行结果是?请给出足够的解释。
(let ((b 1))
(defparameter *x* b)
(defparameter *y* (1+ b)))
(let ((*x* 10)
(*y* 20))
(defun get-xy ()
(list *x* *y*)))
(print (get-xy))
2. 代码的执行结果是?请给出足够的解释。
(defun f () (setf (symbol-function 'f) #'terpri) (f))(f)
3. 代码的执行结果是?请给出足够的解释。(defconstant +aaa+ 1)
(ignore-errors (defconstant +aaa+ 2))
(ignore-errors (defconstant +aaa+ 1))
(ignore-errors (defconstant +aaa+ 3))(print +aaa+)
(defun f (x) (defconstant +aaa+ x))(ignore-errors (f 3))
(print +aaa+)
(ignore-errors (f 8))
(print +aaa+)