相关疑难解决方法(0)

我正在寻找一个很好的方法来分割Clojure中的n位数字我有这两个冗长的低效方法:

 (->> (str 942)
      seq
      (map str)
      (map read-string)) => (9 4 2)

和...

(defn digits [n] ;YUK!!
   (cons 
      (str (mod n 10)) (lazy-seq (positive-numbers (quot n 10)))))

(map read-string (reverse (take 5 (digits 10012)))) => (1 0 0 1 2)

有没有更简洁的方法来进行这种类型的操作？