⛳Perlbatross

独自のプログラミング言語の命令と値が改行区切りで渡されます。

このプログラミング言語には変数はなく、ただ1つのスタックが存在します。以下の文章ではスタックの一番上の値をスタックトップと言います。

命令表

• 二項演算子 + - * / %: スタックトップとスタックの次の値を取り出して演算子を適用してスタックトップに積みます
• 比較演算子 = != < > <= >=: スタックトップとスタックの次の値を取り出して比較し、条件に一致すれば1をスタックトップに積み、そうでなければ0を積みます
• dup: スタックトップの値を複製してスタックの上に更に積みます
• drop: スタックトップの値を取り出して破棄します
• swap: スタックトップとスタックの次の値を入れ替えます
• .: スタックトップを取り出して標準出力へ出力します
• cr: 改行を標準出力へ出力します
• if 〜 else 〜 then: スタックトップの値が1である場合は if と else の間の命令を実行します。スタックトップの値が0である場合は else と then の間の命令を実行します。else は省略できません
• begin 〜 until: まず、begin から until の間の命令を実行し、untilに到達したらスタックトップから値を取り出し、この値が0であれば、begin の次の命令まで戻ります。1以外であれば、untilの次の命令に移ります

これ以外の値が入力された場合はスタックトップに積みます