常见的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)

等等。还有SERIES和Iterate。迭代版本与循环版本相同，但系列版本很有趣：

(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以查看。

• The Hyperspec documentation on remove-if-not
• All sequence functions
• All list-specific functions

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。

或者是一个很好的“过滤”宏，或者是一个函数，它接受一个列表并返回由某个谓词过滤的列表。