本文共 1012 字,大约阅读时间需要 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 DEFUNOCCCL-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 DEFUNOCCCL-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/