kozima #7519(2008/08/31 22:09 GMT) [ Common Lisp ] Rating0/0=0.00
do でカウンタを使う場合は終了判定で incf/decf すると一文字減ります。
1 2
(do*((e(read))(i(- e)))((=(incf i)e))(format t"~V@{*~} "(- e(abs i))t))
Rating0/0=0.00-0+
[ reply ]
kozima
#7519()
[
Common Lisp
]
Rating0/0=0.00
do でカウンタを使う場合は終了判定で incf/decf すると一文字減ります。
(do*((e(read))(i(- e)))((=(incf i)e))(format t"~V@{*~} "(- e(abs i))t))Rating0/0=0.00-0+