7

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

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

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

3 回答 3

22

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

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

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

于 2008-09-02T04:37:55.650 回答
6

您想要的功能是remove-if-not，它是内置的。

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

如果你觉得你正在重新发明与列表有关的东西，那么你可能是。检查 Hyperspec 以查看。

于 2008-09-17T14:48:26.273 回答
-2

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

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

您也可以使用mapcarand来执行此操作reduce，前者可以为您构建一个列表，其中失败的元素替换为nil，后者可用于过滤掉nil.

对于接受列表并返回由某个谓词过滤的列表的“过滤器”宏或函数来说，这两者都是一个很好的候选者。

于 2008-09-01T23:19:31.440 回答