n桁以上 - (define -ayalog '())

書いてないと忘れるので、少し書いておく。
少し考えれば分かるというか、数学漬けだった頃は普通にやってたことが最近どうも忘れていて困る。

(let ((x 1000)
      (n 4))
  (if (>= x (expt 10 (- n 1)))
      (print (format "~d桁以上" n))
      (print (format "~d桁未満" n))))

あと、ビーサンを一日中履いていると足が痛くなるのでオススメできない

(ceiling (log x 10))で桁出せるよ。URL