RosettaCodeData/Task/Same-fringe/Clojure/same-fringe-2.clj
2023-07-01 13:44:08 -04: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)