ACしたコード
(let ((x (read))) (format t "~A~%" (* (/ (reduce #'+ (loop for i from 1 to x collect i)) x) 10000)))
LOOPマクロ
(loop for i from 1 to 10 collect i) (1 2 3 4 5 6 7 8 9 10)
INTEGERを要素とするリストの和
Break 3 [4]> (reduce #'+ (loop for i from 1 to 10 collect i)) 55