获取数字的每个数字的惯用方法答案

【问题标题】：Idiomatic way to get every digit of a number获取数字的每个数字的惯用方法
【发布时间】：2014-03-31 20:32:23
【问题描述】：

获取数字的每个数字并将它们放入序列中的惯用方法是什么？

目前我在做

(map #(Integer/parseInt %) (map str ((comp seq str) 123456)))

，有点丑……

有什么想法吗？

【问题讨论】：

标签： clojure

【解决方案1】：

(for [n  (str 123456)] 
     (- (byte n) 48))

【讨论】：

【解决方案2】：

 (map #(Character/getNumericValue %) (str 123456))

【讨论】：

【解决方案3】：

我认为用惰性序列编写这个很好，即使你实际上不能使用惰性，因为你是从“错误”的一端构建它：

(defn digits [x]
  (rseq (mapv #(rem % 10)
              (->> x
                   (iterate #(quot % 10))
                   (take-while pos?)))))

如果你愿意，你可以写一个不使用 mapv 或 rseq 的数字*，并以向后的顺序懒惰地返回数字。

【讨论】：

【解决方案4】：

怎么样：

(defn digits
    [x]
    (if (< x 10)
        [x]
        (conj (digits (quot x 10))
              (rem x 10))))

user=>(digits 123456)
[1 2 3 4 5 6]

【讨论】：