mc #7421(2008/08/27 10:25 GMT) [ Common Lisp ] Rating1/1=1.00
1 2 3 4 5
(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 ]
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 ]