(defn num->digits
[num]
(loop [n num res []]
(if (zero? n)
res
(recur (long (/ n 10)) (cons (mod n 10) res)))))
在 2011年2月17日星期四UTC+8下午1时29分10秒，Andreas Kostler写道：
>
> Is there an easy and idiomatic way of getting the digits of a number in
> clojure?
>
> (defn explode-to-digits [number]
> (map #(- (int %) (int \0)) (str number)))
> (explode-to-digits 123456)
> => (1 2 3 4 5 6)
>
> Seems a bit clunky...
> Andreas
>
>
>
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
