Common Lisp Idiom - gibt es einen besseren Weg?

Question

Ich finde mich die ganze Zeit so etwas zu tun. Ich habe darüber nachgedacht, ein Makro/eine Funktion zu schreiben, um so etwas einfacher zu machen, aber mir fällt ein, dass ich das Rad wahrscheinlich neu erfinde.

Gibt es eine bestehende Funktion, die mir diese Art von Sache prägnanter erreichen wird?

(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

Es gibt mehrere integrierte Möglichkeiten, dies zu tun. Eine Möglichkeit wäre:

(remove-if-not 'good-enough-score-p word-list) 

Und ein anderer:

(loop for word in word-list 
     when (good-enough-score-p word) 
     collect word) 

Und noch eine andere:

(mapcan (lambda (word) 
      (when (good-enough-score-p word) 
      (list word))) 
     word-list) 

Etc ... Es gibt auch SERIES und Iterate. Die Iterate Version ist identisch mit der LOOP-Version, aber die Serienversion ist interessant:

(collect (choose-if 'good-enough-score-p (scan word-list)))) 

Also, ja, sind Sie sehr wahrscheinlich einige Rad neu zu erfinden. :-)

Answer 2

Es gibt ein paar Möglichkeiten, wie Sie dies tun können. Erstens, und wahrscheinlich am einfachsten, können Sie es rekursiv tun.

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

Sie können es auch tun, mit mapcar und reduce, wo der ehemalige eine Liste mit versagenden Elemente durch nil und dieser ersetzt konstruieren kann, kann verwendet werden, die nil auszufiltern.

Entweder wäre ein guter Kandidat für ein "Filter" -Makro oder -Funktion, die eine Liste übernimmt und die durch ein Prädikat gefilterte Liste zurückgibt.

Answer 3

Die gewünschte Funktion ist remove-if-not, die eingebaut ist.

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

Wenn Sie das Gefühl haben, dass Sie etwas mit Listen neu erfinden, sind Sie wahrscheinlich. Überprüfen Sie die Hyperspec, um zu sehen.

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