История изменений
Исправление Norgat, (текущая версия) :
(defn flatten-one-level [coll]
(mapcat #(if (sequential? %) % [%]) coll))
(defn foo [s] (doall (flatten-one-level (map (fn [e] (println e) [e e]) s))))
Исходная версия Norgat, :
(defn flatten-one-level [coll] (mapcat #(if (sequential? %) % [%]) coll))
(defn foo (doall (flatten-one-level (map (fn [e] (println e) [e e]) s))))