我发现自己一直在做这种事情。我一直在考虑编写宏/函数来简化这种事情，但是在我看来，我可能正在重新发明轮子。

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

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

解决方案

回答

我们可以通过几种方法来执行此操作。首先，而且可能是最容易的，我们可以递归地进行操作。

(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'。

对于使用列表并返回由某些谓词过滤的列表的"过滤器"宏或者函数，将是一个不错的选择。

回答

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

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

等等...还有SERIES和Iterate。 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以查看。

• Hyper-if-not-上的Hyperspec文档
• 所有序列功能
• 所有列表特定功能