题
我发现自己一直在做这种事情。我一直在考虑编写一个宏/函数来使这类事情变得更容易,但我突然想到我可能正在重新发明轮子。
是否有现有的功能可以让我更简洁地完成同样的事情?
(defun remove-low-words (word-list)
"Return a list with words of insufficient score removed."
(let ((result nil))
(dolist (word word-list)
(when (good-enough-score-p word) (push word result)))
result))
解决方案
有几种内置方法可以做到这一点。一种方法是:
(remove-if-not 'good-enough-score-p word-list)
还有另一个:
(loop for word in word-list
when (good-enough-score-p word)
collect word)
还有另一个:
(mapcan (lambda (word)
(when (good-enough-score-p word)
(list word)))
word-list)
ETC...还有 系列 和 迭代. 。Iterate 版本与 LOOP 版本相同,但 SERIES 版本很有趣:
(collect (choose-if 'good-enough-score-p (scan word-list))))
所以,是的,你很可能会重新发明 一些 车轮。:-)
其他提示
你想要的功能是 remove-if-not
, ,这是内置的。
(defun remove-low-words (word-list)
(remove-if-not #'good-enough-score-p word-list))
如果您觉得自己正在重新发明一些与列表有关的东西,那么您可能就是这样。检查 Hyperspec 看看。
有几种方法可以做到这一点。首先,也可能是最简单的,您可以递归地执行此操作。
(defun remove-low-words (word-list)
(if (good-enough-score-p (car word-list))
(list word (remove-low-words (cdr word-list)))
(remove-low-words (cdr word-list))))
你也可以这样做 mapcar
和 reduce
, ,前者可以构造一个列表,其中失败的元素替换为 nil
后者可用于过滤掉 nil
.
两者都是“过滤器”宏或函数的良好候选者,该宏或函数接受列表并返回由某些谓词过滤的列表。
不隶属于 StackOverflow