Come posso rimuovere un elemento per tipo da un elenco o vettore annidato in Clojure?

Question

C'è un modo per rimuovere elementi in un elenco annidato digitando tale che (1 [2] 3 (4 [5] 6)) diventa (1 3 (4 6)) se voglio rimuovere solo i vettori?

Utilizzando la passerella, posso sostituire tutti i vettori con zero, ma non riesco a trovare un modo per rimuoverli.

(clojure.walk/postwalk 
    #(if (vector? %) nil %) '(1 [2] 3 (4 [5] 6))) 

=>(1 nil 3 (4 nil 6)) 

Answer 1

ben lungi dall'essere perfetto, ma forse è un buon inizio:

(clojure.walk/prewalk #(if (list? %) (remove vector? %) %) '(1 [2] 3 (4 [5] 6))) 

Answer 2

mi piacerebbe vedere una soluzione più concisa utilizzando clojure.walk, ma qui è uno che utilizza una funzione ricorsiva e mapcat:

(defn remove-vectors [coll] 
    (mapcat 
    (fn [x] 
     (cond 
     (vector? x) nil 
     (coll? x) (list (remove-vectors x)) 
     :else (list x))) 
    coll)) 

e uno che utilizza filter e map:

(defn remove-vectors [coll] 
    (map #(if (coll? %) (remove-vectors %) %) (remove vector? coll)))