lisp 习题 occurrences-白红宇

lisp 习题 occurrences

阅读量：2498 次

发布时间：2019-05-11

本文共 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 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/

你可能感兴趣的文章

CTA策略02_boll

查看>>

vnpy通过jqdatasdk初始化实时数据及历史数据下载

用时三个月，终于把所有的Python库全部整理了！拿去别客气！

查看>>

pd.stats.ols.MovingOLS以及替代