¿Cómo puedo eliminar un elemento por tipo de una lista anidada o vector en Clojure?

Question

¿Hay alguna manera de eliminar elementos en una lista anidada por tipo de forma que (1 [2] 3 (4 [5] 6)) se convierta en (1 3 (4 6)) si deseo eliminar solo los vectores?

Usando el paseo, puedo reemplazar todos los vectores con nulo, pero no puedo encontrar la manera de eliminarlos.

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

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

Answer 1

lejos de ser perfecto, pero tal vez es un buen comienzo:

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

Answer 2

Me encantaría ver una solución más concisa utilizando clojure.walk, pero aquí es uno que utiliza una función recursiva y mapcat:

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

y uno que utiliza filter y map:

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