Petitverse

短くはなってませんがこういうケースで僕がよく書くパターンだけ載せておきます。

VAR a[0],b
WHILE 1
READ b
IF b>=0 THEN BREAK
PUSH a,b
WEND

無限ループを作ってしまうところが人によっては気になるかもしれませんが…。あとプチコン４では無限ループ用の命令があるっぽいのでそっちに置き換えてもいいかもですね。

プチコン４ならX-BASICやC言語みたいに配列の初期値を設定することもできるよ
DIM A[]=[1,2,3]

VAR a[0],b
@L READ b
IF b>=0THEN PUSH a,b:GOTO@L
DATA 1,2,3,-1

そういえばBASICなのだからGOTOを使えばしんいちさんのように書けましたね。でもそこまでしたならなぜいっそ、

@L READ b:IF b>=0THEN PUSH a,b:GOTO@L

そして１行で出来るみたいにしなかったのかな？　まあマルチステートメント使ってるだけなので意味があるかはともかく使わないという方針でも無さそうなのでふと思っただけで、プログラムがシンプルという点ではしんいちさんのはかなりシンプルだと思います！

WHILE 1
READ b
IF b==-1 THEN BREAK
PUSH a,b
WEND
私は普段こう書いています

追記 あ、上に同じのあった

思いついたっ
REPEAT
READ b
PUSH a,b
UNTIL b==-1
c=POP(a)

(参考)new3DSで速度比較
DATA100000個×10回実行した平均ミリ秒

WHILE,READ2回型(キルル2さん)→257.5
REPEAT,条件判断2回型(ツララさん)→286.1
WHILE,BREAK型(でんぺんさん)→288.5
GOTO1行型(でんぺんさん)→259.5
POP型(自分)→252.5

最後にPOPで要素削るの、ガーっと一気食いして最後にゲップしてるみたいで面白いですね。

閃くというか、疑問に思った箇所を無視しないで蓄積しつつ丁寧に考えていけば
自ずと辿り着ける地点なだけで
美味しいところだけしか見ない雑な思考をする人には、思考がジャンプしてるように見えるってだけですな。

ループの出口でREADしたDATAが-1という条件でループを抜ける
↓
つまり要素の末尾は必ず-1になる配列ができる
↓
そしてこの末尾の要素は要らない
↓
PUSH命令を使ってるなら、リファレンスを参照していれば同様の配列操作命令のPOPやSHIFTやUNSHIFTの存在も知っているはず
↓
ならば「加える」の反対の操作で削ればいいのでは…
↓
結果的に何かいい感じ

キルル２さんの「READ命令を一回にしたい」って要望に
変な理由付けてはぐらかすようなコメントが最初の方にあって不安になりましたけど
Naさんのおかげで理想的な流れになりましたね。

私だって普段は雑な思考してますよ。
閃くのがすごいって思うのはいいんですけど、そこに至った過程を推察してくれた方が
閃いた本人的にも嬉しいんじゃないかと思っただけですし。

速度重視だったら一々ループ内で配列操作すらしないで
DATA文にラベルを付けて

VAR a[0],b,c
RESTRE "@1"
c=0
REPEAT
　READ b
　c=c+1
UNTIL b<0
COPY a,"@1",c
@1
DATA 1,2,3, … ,-1

ってやると良いかも
精進は大切ですな。

雑な思考をしてるのは自分も同じですよ。

上のツララさんのプログラム→93.1ミリ秒
そうか、その手があったかー