Clojure: Semi-Flattening a nested Sequence

Question

I have a list with embedded lists of vectors, which looks like:

(([1 2]) ([3 4] [5 6]) ([7 8]))

Which I know is not ideal to work with. I\'d lik

Answer 1

Here's a function that will flatten down to the sequence level, regardless of uneven nesting:

(fn flt [s] (mapcat #(if (every? coll? %) (flt %) (list %)) s))

So if your original sequence was:

'(([1 2]) (([3 4]) ((([5 6])))) ([7 8]))

You'd still get the same result:

([1 2] [3 4] [5 6] [7 8])