(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 clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en