再帰で書いてみた。 (defun digit (num) (if (< num 10) 1 (1+ (digit (/ num 10))))) ;; test (digit 1000) 4 はげしくガイシュツな気が･･･

いつも忘れるのでメモっておく。 parse-integerリファレンスによると、xyzzy は一部 common lisp と動作が違うみたい。 下記は xyzzy でのテスト。 ;; まずは基本 (parse-integer "00003") ; 多値で返す 3 ; 整数値 5 ; 読み込んだ最後の文字のインデクス(1…