RosettaCodeData/Task/Same-Fringe/Clojure/same-fringe-2.clj
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

3 lines
177 B
Clojure

(defn vfringe-seq [v] (fringe-seq vector? #(remove nil? (rest %)) first v))
(println (vfringe-seq [10 1 2])) ; (1 2)
(println (vfringe-seq [10 [1 nil nil] [20 2 nil]])) ; (1 2)