Lispで2つのリストを結合する

Question

2つの単純なリスト（例えば（1 2 3）と（a b c））からリスト（（1a）（2b）（3c））のリストを作成しようとしています。ただし、次のコードは動作しません。

(defun comblist_op (list1 list2) 
(let ((combl '())) 
    (loop for i in list1 do(
     loop for j in list2 do(
       (push (list i j) combl)))) 
    combl)) 

エラーは次のとおりです。

*** - SYSTEM::%EXPAND-FORM: (PUSH (LIST I J) COMBL) should be a lambda expression 

は、私がここにラムダ式を記述する必要がありますか？

Answer 1

ネストされたループは必要ありません。listとlist2を同時に反復するループは1つだけです。ネストされたループは、対応する要素を結合するだけでなく、クロス積を作成します。

エラーは、doの後の式の周りに余分な括弧を入れているためです。あなたがそれらを包む必要はありません。

(defun comblist (list1 list2) 
    (let ((combl '())) 
    (loop for i in list1 
      for j in list2 
     do (push (list i j) combl)) 
    (nreverse combl))) 

あなたはPUSHが、元のリストよりも逆の順序で、それが作成されますので、結果リストを逆にする必要があります。

LOOPの組み込みCOLLECT演算子を使用することもできます。

(defun comblist (list1 list2) 
    (loop for i in list1 
      for j in list2 
     collect (list i j))) 

2つのリストの要素のすべての組み合わせが必要な場合は、ネストループが機能します。 DO式の余分なカッコで問題を解決してください。

(defun comblist (list1 list2) 
    (let ((combl '())) 
    (loop for i in list1 
     do 
     (loop for j in list2 
      do 
      (push (list i j) combl))) 
    combl))