lisp 习题 occurrences

3. 定义一个函数，接受一个列表并返回一个列表，指出相等元素出现的次数，并由最常见至最少见的排序：

> (occurrences '(a b a d a c d c a))
((A . 4) (C . 2) (D . 2) (B . 1))

(defun cnt-item (item lst)        (let (( cnt 0))          (dolist (obj lst)            (if (equal obj item)            (setf cnt (+ cnt 1))))          (cons item cnt))) CL-USER> (cnt-item 'a '(a b c a)) (A . 2) CL-USER> (defun occ (lst)        (if (null lst)            nil            (let ((x nil))          (dolist (obj lst)            (pushnew (cnt-item obj lst) x  ))x))) STYLE-WARNING: redefining COMMON-LISP-USER::OCC in DEFUN OCC CL-USER> (occ '(a b b a c)) ((C . 1) (A . 2) (B . 2) (B . 2) (A . 2)) CL-USER> (defun occ (lst)        (if (null lst)            nil            (let ((x nil))          (dolist (obj lst)            (pushnew (cnt-item obj lst) x :test #'equal ))x))) STYLE-WARNING: redefining COMMON-LISP-USER::OCC in DEFUN OCC CL-USER> (occ '(a b b a c)) ((C . 1) (B . 2) (A . 2)) CL-USER> CL-USER> (occ '(a a  b  b  c c (a.c) b b a c)) (((A.C) . 1) (C . 3) (B . 4) (A . 3)) CL-USER>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/133735/viewspace-740279/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/133735/viewspace-740279/