Lispのリストサブセクションを置換するのに最も慣用的な方法

Question

リストの特定のサブシーケンスを置き換える最善の方法は何ですか？

(sub-substitute 'i '(m e) '(y o u a n d m e)) 
⇒ (Y O U A N D I) 

注意をベーネ： は、私がiとサブ(m e)を交換したいとこれは、関数substituteと非常に似ています。この場合、私はわからない

(substitute 'u 'i '(i are hungry)) 
⇒ (U ARE HUNGRY) 

Answer 1

宿題です。それは正当な実践的な質問ですので、単純なリスト処理に取り入れられたばかりの先生には、あなたの先生が期待していない、好奇心をそそられる簡単な解決策を提供します。これは、シーケンス（ベクトル、リスト、文字列）のために働く、とCLのシーケンス機能のいくつかを使用しています。

その後

(defun substitute-subsequence (new old sequence &key (test #'eql)) 
    (let ((position (search old sequence :test test))) 
    (if position 
     (concatenate (etypecase sequence 
         (string 'string) 
         (vector 'vector) 
         (list 'list)) 
        (subseq sequence 0 position) 
        new 
        (subseq sequence (+ position (length old)))) 
     sequence))) 

：

CL-USER> (substitute-subsequence '(i) '(m e) '(y o u a n d m e)) 
(Y O U A N D I) 
CL-USER> (substitute-subsequence #(i) #(m e) #(y o u a n d m e)) 
#(Y O U A N D I) 
CL-USER> (substitute-subsequence "I" "me" "you and me") 
"you and I" 
CL-USER> (substitute-subsequence "me" "I" "you and I") 
"you and me" 

これは宿題の質問だった場合、あなたがする方法を考える必要がありますあなたが紹介したリスト関数でしか動作しない特定のバージョンを記述します。また、連結と長さの計算はリスト上であまり効率的ではないことに注意してください。タイトなループでは長さを避けるべきです。また、すべてのオカレンスを置き換えるバージョンを実装することもできます。

EDIT：短いバージョン、のみ出現をすべて置換しますが、リストの作品：

(defun substitute-sublists (new old list) 
    (do ((pos (search old list) (search old list :start2 pos))) 
     ((not pos) list) 
    (setq list (append (subseq list 0 pos) new (subseq list (+ pos (length old)))))))