壓縮和排序問題

Question

我發現這個代碼的壓縮和解方案：

(define zip 
    (lambda (leftList rightList) 
    (if (null? rightList) 
     leftList 
     (if (member (car rightList) leftList) 
     (zip leftList (cdr rightList)) 
     (zip (append leftList (list (car rightList))) (cdr rightList)))))) 

=> (zip '(1 4) '(2 3)) 
    (1 4 2 3) 

但我要對結果進行分類：

=> (zip '(1 4) '(2 3)) 
    (1 2 3 4) 

Answer 1

你要找的是不是叫zip的功能;它被稱爲merge。由於這是一項家庭作業問題，因此提供解決方案將是不負責任的。我只能提供這個：

給定兩個列表已經排序，最簡單的方法是將它們組合成一個新的列表進行排序？那麼，在每個列表的第一件事情（列表中的car）是其自己的列表的最小元素，所以通過比較它們，你可以知道哪一個是最小的都名單。然後，使用遞歸合併剩下的內容。