ACしたコード (let* ((n (read)) (lst (loop repeat n collect (read)))) (format t "~A~%" (apply #'min lst))) integerを要素とするlistの中で最小のものを返すのは (apply #'min と書ける。ただのminだと、 Break 1 [3]> (min 9 2 4 2 5) 2 みたいに、直…

ACしたコード その1 (let* ((r1 (read-line)) (r2 (read-line)) (r3 (read-line)) (r4 (read-line)) (lst (list r1 r2 r3 r4))) (format t "~{~A~%~}" (reverse (mapcar #'reverse lst)))) 文字列を要素とするリストの中身それぞれに対してreverseするときは…