Question

能推荐下比较经典的common lisp 代码么

Answer 1

;示例：(zhuanpan-lst-4 '((1 2 3)(a b c)(4 5)))
(defun zhuanpan-lst-4 (lst)
(let* ((bx (nreverse (mapcar #'length lst)))
(bx-len (length bx))
(bc (make-list bx-len :initial-element 0))
(bn (make-list bx-len :initial-element nil))
(lst1 (nreverse (copy-tree lst)))
(num 0)
(fn1 #'(lambda (num)
(dotimes (c bx-len bc)
(multiple-value-bind (b1 b2) (floor num (nth c bx))
(if (zerop b1)
(progn (setf (nth c bc) b2) (fill bc 0 :start (1+ c))(return bc))
(progn (setf (nth c bc) b2) (setf num b1)))))))
(fn2 #'(lambda ()
(dotimes (c bx-len bn)
(setf (nth (- bx-len 1 c) bn) (nth (nth c bc) (nth c lst1))))))
(fn3 #'(lambda (num) (funcall fn1 num) (funcall fn2))))
`(,bn ,#'(lambda (&key (zd 0) (n 0))
(cond
((= zd 0) (let ((val (funcall fn3 num)))(incf num) val))
((= zd 1) (let ((val (funcall fn3 num)))(decf num) val))
((= zd 2) (setf num n)(funcall fn3 num)))))))

Answer 2

CL本身就是一门通用语言,如果英文够好的话可以看看 LISP outside the box Common LISP Cookbook Lisp for the web Lisp web tales 这些书,网上有免费章节可以读