2011/04/08

桁数を求める



再帰で書いてみた。



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

;; test
(digit 1000)
4


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





Related Posts Plugin for WordPress, Blogger...

0 コメント :

コメントを投稿