clojure - 在 Clojure 中对数字序列进行分区

Question

我有以下输入:

(def nums [123456789012 123456789012])

我想要以下输出:

[[1234 5678 9012] [1234 5678 9012]]

*注意这两个序列都包含数字而不是字符串...

我认为通过执行以下操作会非常简单:

1. 将每个条目转换为字符串
2. 将每个字符串划分为 4
3. 将每个分区转换回整数

这是我失败的尝试:

(defn split-nums [nums factor]
  (map
    #(map
       (fn [x] (Integer/valueOf (str x)))
       (partition factor (str %)))
  nums))

(println (split-nums nums, 4))

当我运行此程序时，出现以下错误:

Caused by: java.lang.NumberFormatException: For input string: "clojure.lang.LazySeq@4834333c"

这告诉我，我正在处理一个惰性序列，我需要强制对其进行求值，但是当我尝试 (str (doall x)) 时，我得到了相同的结果。

那么 Clojure 专家我哪里出错了？这是一个好方法吗？顺便提一句。我刚刚开始学习 clojure，所以我当然不是专家。

Answer 1

为什么要先转换为String？这是带有 / 和 mod 的版本。这也将解决您的前导零问题。

(defn int-partition [num size]
   (let [f (int (Math/pow 10 size))]
      (loop [n num l ()]
         (if (zero? n) 
            (vec l) 
            (recur (int (/ n f)) (conj l (mod n f)))))))

(defn split-nums [nums factor] (vec (map #(int-partition % factor) nums)))