計算で「桁数」「指定した桁の数」を求める

;; 桁数を求める
(x->integer (ceiling (/ (log (abs 1234))(log 10))))
;; -> 4

;; 指定した桁の数値を取得
(modulo (quotient 1234567 (expt 10 0)) 10)
;; -> 7
(modulo (quotient 1234567 (expt 10 1)) 10)
;; -> 6
(modulo (quotient 1234567 (expt 10 2)) 10)
;; -> 5

どこで見たのか忘れた。

追記

このrubyのコードで見たんだ。

• Sorting algorithms/Radix sort - Rosetta Code