drRacket：關於名單

Question

所以我有3個名單。

(define list1 '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 15 16 17 18 19 20)) 
(define list2 '(2 5 6 8 10)) 
(define list3 '(1 4 8 9 13 15 18 19 20 25 27 29)) 

所以begically，列表1是含有1至20

什麼我想要做的是，如果我想 list1的列表 - list2中=「（1 3 4 6 7 9 11 12 13 14 15 16 17 18 19 20）

，或者 list1的 - 項目list3 =（2 3 5 6 10 11 12 14 16 17）

我試圖與該列表的長度，但沒有工作，但我想保留除list3以外的所有list1值。

也，我想要做的 列表1 - 列表2然後，結果從列表1列表1，列表2存儲，然後做另一個減法一樣，

1. 列表1 - 列表2
2. 店＃1的結果在list1中。
3. 列表1 - 項目list3

任何人都可以給我一些這方面的解決方案？非常感謝！

Answer 1

我們可以擺脫第2步，「將＃1的結果存儲在列表1中」嗎？這種突變給我帶來了麻疹。

我覺得你只是想刪除這兩份清單2和3從清單1中的元素你可能不喜歡這樣：

(remove* (append list2 list3) list1) 

產量....

'(3 7 11 12 14 16 17) 

Answer 2

你在使用Set Theory嗎？如果是這樣，（remove *）解決了這個問題，但它不是描述集合差異的過程。

集不同的是A \ B被定義爲： A\B={x,such that x is in A and x is not in B}

因此，你需要告訴你wheter一個元素是in列表與否的過程。然後你difference代碼看起來像：

(define difference 
    (λ (A B) 
    (remove* (list #f) (map 
    (λ (x) 
     (if (not (in x B)) 
     x 
     #f 
     )) A)))) 

在我使用刪除*上面的例子，在我看來這不是很優雅，那麼爲什麼不嘗試遞歸？它最終是球拍:)。

(define difference2 
    (λ (A B res) 
    (cond 
     ((empty? A) (reverse res)) 
     ((not (in (car A) B)) (difference2 (cdr A) B (cons (car A) res))) 
     (else (difference2 (cdr A) B res)) 
    ))) 

注意如何在difference2我再沒使用的地圖或移除。

reverse函數用於防止您要求對結果進行排序。

分析這兩個例子，試着理解我在做什麼併發布你的結果。

讓我們知道任何懷疑！

編輯： 哦，對另一個變量（C++等）分配一個操作的值的其他問題，你可以做到這一點非常像C++。 ：P

例

(define C (sum A B)) 

或

(define foo (+ (* pi x) (* 6 sigma)))