桁数を求める

再帰で書いてみた。

(defun digit (num)
(if (< num 10) 1
(1+ (digit (/ num 10)))))

;; test
(digit 1000)
4

はげしくガイシュツな気が･･･