Comment detail
LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)
書式パクらせてもらいました。 これは知らなかった…
1 | (do*((e(read))(i(- e)(1+ i)))((= i e))(format t"~,,V,'*A~%"(- e(abs i))""))
|
kozima
#7519()
[
Common Lisp
]
do でカウンタを使う場合は終了判定で incf/decf すると一文字減ります。
1 2 | (do*((e(read))(i(- e)))((=(incf i)e))(format t"~V@{*~}
"(- e(abs i))t))
|
mc
#7421()
[
Common Lisp
]
Rating1/1=1.00
(format t "~{~,,V,'*A~%~}" (do ((i 1 (1+ i)) (r () `("" ,i ,@r)) (a () `(,i "" ,@a))) ((< 4 i) `(,@(nreverse r) ,@(cddr a)))))Rating1/1=1.00-0+
1 reply [ reply ]