Jak usunąć wiele przedmiotów z listy?

Question

Mam listę [2 3 5], której chcę użyć do usunięcia elementów z innej listy, na przykład [1 2 3 4 5], aby uzyskać [1 4].

dzięki

Answer 1

user=> (use 'clojure.set) 
nil 
user=> (difference (set [1 2 3 4 5]) (set [2 3 5])) 
#{1 4} 

referencyjny:

• http://clojure.org/data_structures#toc22
• http://clojure.org/api#difference

Answer 2

Spróbuj tego:

(let [a [1 2 3 4 5] 
     b [2 3 5]] 
    (remove (set b) a)) 

która zwraca (1 4).

Nawiasem mówiąc, funkcja remove pobiera predykat i kolekcję i zwraca sekwencję elementów, które nie spełniają predykatu (zestaw, w tym przykładzie).

Answer 3

Można to zrobić samemu coś podobnego:

(def a [2 3 5]) 
(def b [1 2 3 4 5]) 

(defn seq-contains? 
    [coll target] (some #(= target %) coll)) 

(filter #(not (seq-contains? a %)) b) 
; (3 4 5) 

wersji opartej na bibliotece reducers mogą być:

(require '[clojure.core.reducers :as r]) 

(defn seq-contains? 
[coll target] 
    (some #(= target %) coll)) 

(defn my-remove 
"remove values from seq b that are present in seq a" 
[a b] 
(into [] (r/filter #(not (seq-contains? b %)) a))) 

(my-remove [1 2 3 4 5] [2 3 5]) 
; [1 4] 

EDITDodany nast-zawiera? kod

Answer 4

Oto moje podejście bez użycia zestawów;