char-range
(defn- char-range* [start end] (map char (range (int start) (inc (int end))))) (defn char-range [& more] (if (and (= (count more) 2) (every? char? more)) (apply char-range* more) (apply concat (map #(apply char-range* %) more)))) (comment (char-range \a \z) (char-range [\0 \9] [\a \z]) )