Warum sammeln Funktion funktioniert nicht in diesem Lisp-Code

Question

Ich kann nicht herausfinden, warum folgende Funktion nicht funktioniert. Ich versuche, eine Liste von Listen zu machen zurückgeben alle Kombinationen zeigt: ((1 5) (1 6) (1 7) (2 5) (2 6) (2 7) (3 5) (3 6) (3 7))

(defun combo3 (list1 list2) 
    (dolist (e1 list1) 
     (dolist (e2 list2) 
      collect '(e1 e2)))) 


> (combo3 '(1 2 3) '(5 6 7)) 
NIL 

Edit: Als Reaktion auf die Antwort, habe ich versucht Schleife Makro mit collect zu verwenden. Sammeln funktioniert nicht in der folgenden Schleife:

(defun combo4 (list1 list2) 
    (loop for element1 in list1 do 
     (loop for element2 in list2 do 
       collect (list element1 element2)))) 

> (combo4 '(1 2 3) '(5 6 7)) 
NIL 

Ich habe versucht, es ohne nconc arbeiten zu lassen. Muss sammeln immer nconc?

Answer 1

Paar Probleme ...

Erstens ist collect Teil des loop Makro (oder Anlage, wenn Sie bevorzugen), so wird Probleme verursachen, wenn sie innerhalb dolist verwendet.

Zweitens: Selbst wenn collect '(e1 e2)tat etwas sammeln, es (wahrscheinlich) nicht sein, was Sie wollen, da es mit einer Liste wie ((e1 e2) (e1 e2) (e1 e2) (e1 e2) (e1 e2) (e1 e2)) enden würde.

Was Sie (wahrscheinlich) wollen, ist so etwas wie:

(defun cross-product (list1 list2) 
    (loop for element1 in list1 
     nconc (loop for element2 in list2 
       collect (list element1 element2))))