doukaku.org 反射的に投稿してしまった。 (do((a 1)(e(read)))((< e(incf a(expt 10(floor(log(print a)10))))))) expt floor log なんとかならないかなと思ったけど思いつかない。