【ABC344B】
0まで読み込み、逆順に出力する
（Common Lisp）

• C – Delimiter

整数 $A_1,A_2,\ldots,A_N$ が1行ずつ与えられる。
$N$ は与えられず、$A_N=0$、それ以前の値はすべて非零である。

$A_N,A_{N-1},\ldots,A_1$ の順に、各整数を改行して出力せよ。

出典：AtCoder ABC344 B – Delimiter

1. コード

(defun read-until-zero ()
  (loop for n = (read)
        collect n
        until (= n 0)))

(defun main ()
  (let ((lst (read-until-zero)))
    (loop for n in (nreverse lst)
          do (print n))))
(main)Code language: Lisp (lisp)

逆順に出力するだけなら、pushしてそのままprintしてもよかったかも。