摘要:
1 (defun compress (x) 2 (if (consp x) 3 (compr (car x) 1 (cdr x)) 4 x)) 5 6 (defun compr (elt n lst) 7 (if (null lst) 8 (list (n-elts elt n)) 9 (let ((next (car lst)))10 (if (equal next elt)11 (compr next (+ n 1) (cdr ... 阅读全文
posted @ 2012-12-11 16:35
flowjacky
阅读(1685)
评论(0)
推荐(0)

浙公网安备 33010602011771号