Gemeinsame Lisp-Funktion für "Zwischenergebnisse als Sequenz reduzieren und zurückgeben"

Question

In Clojure gibt es eine höherwertige Funktion reductions, die Sie mit ähnlichen Argumenten wie reduce verwenden würden und eine Sequenz mit allen Zwischenergebnissen zurückgeben.

Gibt es eine Entsprechung in Common Lisp? Ich konnte online keinen Verweis darauf finden, einschließlich der verschiedenen Bücher/Artikel unter https://common-lisp.net/tutorials/, aber angesichts Lisps Erbe als eine Familie von Listenverarbeitungssprachen stellte ich mir eine Listen-> Listenfunktion wie reductions in Dialekten vor.

Answer 1

Es gibt keine Standardfunktion dafür. Sie könnte man leicht definieren:

(defun reductions (function sequence &rest args 
        &key key from-end (start 0) end initial-value) 
    (declare (ignore key from-end start end initial-value)) 
    "Return a list of intermediate values from reducing SEQUENCE with FUNCTION." 
    (let* ((reductions (list)) 
     (result (apply #'reduce 
         (lambda (&rest arguments) 
          (let ((result (apply function arguments))) 
          (push result reductions) 
          result)) 
         sequence 
         args))) 
    (values (or (nreverse reductions) 
       (list result)) 
      result))) 

(reductions #'+ '(1 2 3 4 5 6 7 8 9 10) :initial-value 0) 
;=> (1 3 6 10 15 21 28 36 45 55) 

Edit: Verwenden APPLY mit &REST ARGS statt REDUCE direkt aufzurufen. Eine Implementierung von REDUCE funktioniert möglicherweise nicht, wenn NIL s für Schlüsselwortargumente bereitgestellt werden.

Edit2: Die reduzierende Funktion kann mit 0 oder 2 Argumenten aufgerufen werden.

Edit3: Wenn REDUCE mit einer Liste von nur einem Element aufgerufen wird, wird das einzige Element zurückgegeben, wie es ist. Die Reduzierungsfunktion wird überhaupt nicht aufgerufen, was bedeutet, dass die Liste der Reduzierungen leer ist. Ich habe eine OR hinzugefügt, um das Endergebnis, das in einer Liste in dieser Situation enthalten ist, zurückzugeben (um Clojures-Verhalten zu entsprechen). Ich änderte auch den Code, um das Endergebnis als zweiten Rückgabewert zurückzugeben (möglicherweise nützlich und "warum nicht?").