Common lisp 习语 - 有更好的方法吗？

Question

我发现自己一直在做这种事情。我一直在考虑编写一个宏/函数来使这类事情变得更容易，但我突然想到我可能正在重新发明轮子。

是否有现有的功能可以让我更简洁地完成同样的事情？

(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))  

Answer 1

有几种内置方法可以做到这一点。一种方法是：

(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))))

所以，是的，你很可能会重新发明 一些 车轮。:-)

Answer 2

你想要的功能是 remove-if-not, ，这是内置的。

(defun remove-low-words (word-list)
  (remove-if-not #'good-enough-score-p word-list))

如果您觉得自己正在重新发明一些与列表有关的东西，那么您可能就是这样。检查 Hyperspec 看看。

• Hyperspec 文档 remove-if-not
• 所有序列功能
• 所有特定于列表的函数

Answer 3

有几种方法可以做到这一点。首先，也可能是最简单的，您可以递归地执行此操作。

(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.

两者都是“过滤器”宏或函数的良好候选者，该宏或函数接受列表并返回由某些谓词过滤的列表。