- 定义一个函数,接受一个列表并返回一个列表,指出相等元素出现的次数,并由最常见至最少见的排序:
> (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-740280/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/133735/viewspace-740280/