clojure - 如何在 Clojure 中拆分数字？

Question

我正在寻找一种在 Clojure 中用 n 位数字分割数字的好方法，我有这两种方法:

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

还有...

(defn digits [n]
   (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)

是否有更简洁的方法来执行此类操作？

Answer 1

第一种方法的简洁版本是

(defn digits [n]
  (->> n str (map (comp read-string str))))

...你的第二个是

(defn digits [n]
  (if (pos? n)
    (conj (digits (quot n 10)) (mod n 10) )
    []))

惯用的替代方案

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

例如，

(map digits [0 942 -3])
;(nil (9 4 2) nil)

• 计算本质上是急切的，因为最后数字in是先 出。所以我们不妨使用mapv和rseq (而不是 map 和 reverse )以更快地完成。
• 该功能已准备就绪。
• 它仅适用于正数。