Comment supprimer plusieurs éléments d'une liste?

Question

J'ai une liste [2 3 5] que je veux utiliser pour supprimer des éléments d'une autre liste comme [1 2 3 4 5], de façon à obtenir [1 4].

grâce

Answer 1

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

Référence:

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

Answer 2

Essayez ceci:

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

qui renvoie (1 4). Soit dit en passant, la fonction remove prend un prédicat et une collection, et renvoie une séquence d'éléments qui ne satisfont pas le prédicat (un ensemble, dans cet exemple).

Answer 3

Vous pouvez faire vous-même avec quelque chose comme:

(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) 

Une version basée sur la bibliothèque reducers pourrait être:

(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] 

EDITAjouté seq-contient? code

Answer 4

Voici ma prise sans utiliser de jeux;

(defn my-diff-func [X Y] 
    (reduce #(remove (fn [x] (= x %2)) %1) X Y))