まだこれがないとは信じられません。これはプログラミングで最も重要なデータ構造の1つですが、コードゴルフで実装するのに十分なほどシンプルです。

チャレンジ

あなたの仕事は、数字をプッシュしたりポップしたりできるスタックを実装することです。実装をテストし、I / Oをシンプルに保つために、次のセットアップを使用します。

• 入力は、負でない整数のリストになります

正の整数はすべてを示し、はすべて示し -最上部の要素を破棄します。push（ n ） 0 $n$$\texttt{push(}n\texttt{)}$$0$$\texttt{pop()}$

• 出力は結果のスタックになります

例

たとえば、が与えられた場合：$[12,3,0,101,11,1,0,0,14,0,28]$

出力は次のようになります。$[28,101,12]$

ルール

• 入力は、デフォルトのI / O形式の非負整数のリストになります
  • 整数のストリームの終わりを示すために負の整数を使用できます
• 出力は、結果のスタックのリスト/マトリックス/ ..になります
  • 最上部の要素がどこにあるか（開始または終了）を選択すると、出力は一貫している必要があります。
  • 出力は柔軟です（たとえば、改行で区切られた整数は問題ありません）、重要なことは順序だけです
  • 負の整数を使用してスタックの最下部を示すことができます
• スタックが空のとき、決してにならないことが保証されています$0$

例

[] -> []
[1] -> [1]
[1,0,2] -> [2]
[4,0,1,12] -> [12,1]
[8,3,1,2,3] -> [3,2,1,3,8]
[1,3,7,0,0,0] -> []
[13,0,13,10,1,0,1005,5,0,0,0] -> [13]
[12,3,0,101,11,1,0,0,14,0,28] -> [28,101,12]

MATL、6バイト

"@?@}x

入力は数値の行ベクトルです。

最終スタックは上下逆さまに表示され、最新の要素が下に表示されます。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

"         % For each element in the input (implicit)
  @       %   Push current element
  ?       %   If non-zero (this consumes the current element)
    @     %     Push current element again
  }       %   Else
    x     %     Delete most recent element
          %   End (implicit)
          % End (implicit)
          % Display (implicit)

Java（JDK 10）、42バイト

「[the]出力は柔軟です[...]、重要なのは順序だけです」ため、これは入力配列を- 0終端配列に変更します。例：= として解釈されるもの[1,0,2]を返します。[2,0,2][2,0,2][2]

a->{int s=0;for(int v:a)a[v>0?s++:--s]=v;}

オンラインでお試しください！

以前のバージョン：

Java（JDK 10）、60バイト

l->{for(int i;(i=l.indexOf(0))>0;l.remove(i))l.remove(--i);}

オンラインでお試しください！

クレジット：

• OOBalanceにより-1バイト

エラーでプログラムを終了できる場合：55バイト

（ただし、すべてが適切に変更されています）

l->{for(int i;;l.remove(--i))l.remove(i=l.indexOf(0));}

オンラインでお試しください！

Sed、17バイト

:;s/[0-9]\+,0//;t

@OMᗺのおかげで-3バイト、@ eggyalのおかげで-1バイト

空のリストを決してポップしないことが保証されているので、反復有限状態マシン以上のものは必要ありません。正規表現は、有限状態マシンを構築するためのツールであり、sed反復することができます。天国で行われた試合です。

次のように、stdinから入力を取得します。

echo '[12,3,0,101,11,1,0,0,14,0,28]' | sed ':;s/[0-9]\+,0,//;t'

スタックを逆に出力します。

[12,101,28]

私のローカルがsed本質的にのような文字クラスを理解している場合、2バイト小さくすることができます\dが、何らかの理由でそうではありません。

PowerShell、46 41 40バイト

$args|%{$x,$a=&({1,$_+$a},{$a})[!$_]};$a

オンラインでお試しください！

スプラッティングを介して入力を受け取り$z=@(12,3,0,101,11,1,0,0,14,0,28); .\implement-stack.ps1 @zます。たとえば、TIOでは個別の引数として現れます。

$args|%{$x,$a=&({1,$_+$a},{$a})[!$_]};$a    # Full program
$args                                       # Take input via splatting
     |%{                            };      # Loop through each item
              &(              )[!$_]        # Pseudo-ternary, if input is 0 this is 1
        $x,$a=            {$a}              # ... which will pop the first item into $x
           $a=  { ,$_+$a}                   # Else, we append the first item
        $x   =   1                          # ... and drop a dummy value into $x
                                      $a    # Leave $a on pipeline; implicit output

-5バイトはmazzyのおかげです。
-1バイトスワップ$_に1

C（gcc）、62 60 56 55バイト

-2 -6バイト、l4m2のおかげ

ceilingcatのおかげで-1バイト。

-1で終了する配列の許可された概念を使用します。f()完全に傷つくまで再帰的に自分自身を呼び出し、リストをバックトラックします。r何かを印刷する前に破棄する数字の数を追跡します。現在のアイテムが0の場合は増加し、そうでない場合は減少します。0の場合、破棄する必要はなく、番号を印刷できます。

r;f(int*l){~*l?f(l+1),*l?r?r--:printf("%d ",*l):r++:0;}

オンラインでお試しください！

Haskell、28バイト

foldl(#)[]
(_:s)#0=s
s#n=n:s

オンラインでお試しください！

R、45バイト

o={};for(e in scan())o="if"(e,c(e,o),o[-1]);o

オンラインでお試しください！

• @Giuseppeのおかげで-4バイト

パイソン2、59の 57 51バイト

s=[]
for x in input():s=(s+[x],s[:-1])[x<1]
print s

オンラインでお試しください！

ゼリー、6バイト

ṣ0Ṗ;¥/

オンラインでお試しください！

使い方

ṣ0Ṗ;¥/  Main link. Argument: A (array)

ṣ0      Split A at zeroes.
    ¥/  Left-reduce the resulting 2D array by this dyadic chain:
  Ṗ       Pop; discard the last element of the left argument.
   ;      Concatenate the result with the right argument.

Brain-Flak、40 36バイト

([]){{}{({}<>)<>}([]){{}<>}{}([])}<>

オンラインでお試しください！

-4バイトの@Nitrodonに感謝します。

Brain-Flakはすでにスタックを使用しているため、これはBrain-Flakにとって良いパズルです。

([]){   while items on stack
    {}      pop stack count
    {       if top element is non-zero
        ({}<>)<> push it on the other stack
    }
    if we're here the stack is either empty or there's a 0 on the stack

    ([])    so, count the stack again
    {{}<>{}<>} if there are items left on the stack, pop the stack count and the last item of the other stack
    {} pop the zero or the stack count
    ([]) count the stack again for next round
}
<>  go to the output stack

Wolfram言語（Mathematica）、28バイト

#//.{a___,b_,0,c___}:>{a,c}&

オンラインでお試しください！

Python 2、48バイト

s=[]
for x in input():s=([x]+s)[2*0**x:]
print s

オンラインでお試しください！

空白、89バイト

[N
S S N
_Create_Label_LOOP_1][S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_integer][T   T   T   _Retrieve][S N
S _Duplicate_input][N
T   T   S 
_If_neg_Jump_to_Label_EXIT][S N
S _Duplicate_input][N
T   S T N
_If_0_Jump_to_Label_DROP][N
S N
N
_Jump_to_Label_LOOP_1][N
S S S N
_Create_Label_EXIT][S N
N
_Discard_top][N
S S S S N
_Create_Label_LOOP_2][T N
S T _Print_as_integer][S S S T  S T S N
_Push_10_newline][T N
S S _Print_as_character][N
S T S S N
_Jump_to_Label_LOOP_2][N
S S T   N
_Create_Label_DROP][S N
N
_Discard_top][S N
N
_Discard_top][N
S N
N
_Jump_to_Label_LOOP_1]

強調表示としてのみ追加される文字S（スペース）、T（タブ）、およびN（改行）。
[..._some_action]説明としてのみ追加。

入力リストを改行で区切り-1、入力が完了したことを示します。

オンラインでお試しください。

擬似コードの説明：

Start LOOP_1:
  Integer i = STDIN as integer
  If(i is negative):
    Call function EXIT
  If(i is 0):
    Call function DROP
  Go to next iteration of LOOP_1

function EXIT:
  Start LOOP_2:
    Pop and print top as integer
    Print newline
    Go to next iteration of LOOP_2

function DROP:
  Drop the top of the stack
  Go to next iteration of LOOP_1

パイソン2、60の 59 57 56バイト

l=input()
while 0in l:i=l.index(0);l[i-1:i+1]=[]
print l

オンラインでお試しください！

保存済み：

• -1バイト、プーシキンのおかげ

JavaScript、40バイト

逆順で出力します。

a=>a.map(x=>x?o.push(x):o.pop(),o=[])&&o

オンラインで試す

Herman Lのおかげで1バイト節約されました。

05AB1E、9 バイト

vy>i¨ëy)˜

オンラインそれを試してみたり、すべてのテストケースを確認してください。

説明：

v        # For-each of the items in the input-list:
 y>i     #  If the current item is 0:
  ¨      #   Pop the top item of the list
 ë       #  Else:
  y      #   Push the current item to the stack
   )     #   Wrap the entire stack into a list
         #    i.e. 12 → [12]
         #    i.e. [12] and 3 → [[12], 3]
    ˜    #   Flatten the stack
         #    i.e. [[12], 3] → [12, 3]
         # (and output the list implicitly after the loop)

9 バイトの代替：

vy_i\ëy])

オンラインで試して、すべてのテストケースを確認します。

説明：

v        # For-each of the items in the input-list:
 y_i     #  If the current item is 0:
  \      #   Discard top item of the stack
 ë       #  Else:
  y      #   Push the current item to the stack
]        # Close both the if-else and for-each (short for `}}`)
 )       # Wrap the entire stack into a list (and output implicitly)

PS：チャレンジの説明のテストケースに一致するように出力を逆にする必要がある場合はR、2番目のバージョン（つまり10 バイト）に末尾を追加して、リストを逆にすることができます。オンラインそれを試してみたり、すべてのテストケースを確認してください。

Retina 0.8.2、18バイト

^
,
+1`,\d+,0

^,

オンラインでお試しください！リンクにはテストケースが含まれます。説明：

^
,

余分なプレフィックスを付け,ます。

+1`,\d+,0

すべてのポップ操作を処理します。

^,

,まだある場合は削除します。

数値を逆にすると、8バイト余分にコストがかかります。

O^$`\d+

ルビー、36バイト

->a{b=[];a.map{|x|x>0?b<<x:b.pop};b}

オンラインでお試しください！

匿名ラムダ。逆順で出力します。

Brain-Flak、36バイト

([]){{}{(({}<>))(<>)}{}<>{}<>([])}<>

オンラインでお試しください！

#Let's call the two stacks in and out

([]){{}                      ([])}    # while not in.empty()
       {        (  )}{}               # if in.peek() != 0
        (({}<>)) <>                   # a = in.pop; out.push(a); out.push(a)
                       <>{}<>         # out.pop()
                                  <>  # switch to out to be printed

Brain-Flak、32バイト

([]){{}{({}<>)<>}{}<>{}<>([])}<>

オンラインでお試しください！

-1配列の終わりを示すために使用します（ただし、任意の数値が実際に実行されます）。

V、10バイト

ò/ 0⏎b2dw0

オンラインでお試しください！

説明

ò           " run the following, until an error occurs
 / 0⏎       " | goto next zero with space in front (errors if none)
     b      " | jump one word back (to the beginning of element to pop)
      2     " | twice (element & zero itself)
       dw   " | | delete word
         0  " | goto beginning of line

Vimで16バイトに相当

qq/ 0⏎b2dw0@qq@q

オンラインでお試しください！

説明

マクロを記録してq再帰的に呼び出すことを除いて、ほぼ同じです。

qq                " record macro q
  / 0⏎b2dw0       " same as in V
           @q     " recursively call q (aborts on error)
             q    " quit recording
              @q  " execute the macro q

Java 10、75 72バイト

n->{var s="";for(int i:n)s=(s+","+i).replaceAll(",\\d+,0","");return s;}

コンマで区切られた出力。スタックの一番上が最後です。こちらからオンラインでお試しください。

2バイトのゴルフをしてくれたOlivierGrégoireに感謝します。

Kevin CruijssenとOlivierGrégoire の Javaの回答もご覧ください。代わりに、リストベースのアプローチを採用し、後者はきちんとマージンを打ちます。

ゴルフをしていない：

n -> { // lambda taking an integer array as argument and returning a String
    var s = ""; // we'll be using a String to implement and output the stack
    for(int i : n) // loop through the array
        s = (s + "," + i) // append the next number
               .replaceAll(",\\d+,0", ""); // remove any number followed by a zero
    return s; // output the resulting stack
}

GolfScript、14 12バイト

~{.{;}if}/]`

オンラインでお試しください！

~{.{;}if}/]` Full program, implicit input
~            Eval input
 {      }/   Foreach:
      if       If the value is truthy (!= 0):
  .              Push itself
   {;}         Else: pop the top value
          ]` Push as array representation
             Implicit output

Perl 5、17 -pバイト

ありがとう@sundarと@DomHastings

s/\d+ 0 ?//&&redo

オンラインでお試しください！

> <>、25バイト

i:?\~~
(0:/:^?
!?l:!<oan;

オンラインでお試しください！（入力はASCIIで記述する必要があります。それ以外の場合は、これを使用します）

使い方

i:?\~~0をチェックし、~~前のエントリを削除し続けます。それ以外の場合：

(0:/:^? これは-1（入力がもうない）をチェックしてから、-1を削除してループするためにラップします。

!?l:!<oan; 各番号を改行で出力し、スタックが空になると終了します

殻、6バイト

Huskの回答はまだなく、私のお気に入りのゴルフラングなので：

F`?:tø

オンラインでお試しください！

説明

F`?:tø  --
F    ø  -- foldl (reduce) with [] as the initial accumulator
 `      -- | flip arguments of
  ?:    -- | | if truthy: apply cons (prepend) to it
    t   -- | | else: return tail
        -- | : returns a function, either prepending the element or dropping 1 element

代替ソリューション、6バイト

反転する代わりに、リストを逆にして右折りを使用することもできます。 Ḟ?:tø↔

brainfuck、214 150バイト

>>,[>++++++[-<-------->]+<[>+++++[-<++++++++>]]>[-<<<[[-]<],[-]>>>>-<<]>>+[<<+<,----------[++++++++++>-]>[->>-<]>[->+<]>]<<<,]<<[[<]++++++++++<]>>[.>]

改行で区切られた数値として入力を読み取ります。これには、単一の末尾の改行を含める必要があります。また、各数値の先頭にゼロがないことを期待しています。同様の改行区切りリストとして出力

オンラインでお試しください！

説明^{は実際には}説明^{ではありませんが、実際に私がコメントと作業を行っていたバージョンであり、実際には誰にとっても有用である場合とそうでない場合があります}

Stack format:
0 (0 \d*)*


>>,[
    Setup digit == '0' conditional
    >++++++
    [-<-------->]
    +
    <[
        Read digit != '0'
        Restore the char code
        cond1 is already 1 at this stage
        >+++++
        [-<++++++++>]
    ]>[
        Read digit == '0'
        -
        Pop previous value
        <<<[
            [-]<
        ]
        Skip next input (assumed to be newline)
        ,[-]
        Skip following loop by unsetting loop flag
        >>>>-
        <<
    ]

    Move to next stack frame
    >
    Set loop flag
    >+[
        Set bit used for conditional
        <<+
        Read next character
        <,
        Compare with '\n'
        ----------[
            Not '\n': restore the char code
            ++++++++++

            >-
        ]>[
            -
            == '\n': Leave as 0
            Unset loop flag
            >>-
            <
        ]

        Copy loop flag along
        >
        [- > + <]

        Move to loop flag of next stack frame
        >
    ]

    <<<
,]


Fill in with newlines
<<[
    Skip to the cell before this value
    [<]
    Put a newline in there
    ++++++++++
    Move to next value
    <
]

Now the tape has the exact values we need to output
>>[.>]

Brachylog、21バイト

~c₃Ckt[İ,0]≠∧C⟨hct⟩↰|

オンラインでお試しください！

-1バイト、さらに重要なことは、これはこれを行うためのはるかに不格好な方法のように感じます。

~c₃                     % Partition the input into 3 subarrays
   C                    % Call that array-of-arrays C
    kt[İ,0]             % Its second element should be of the form [Integer, 0]
           ≠            % And its elements shouldn't be equal (i.e. 
                        %   the Integer shouldn't be 0)
            ∧C⟨hct⟩     % Then, remove that [İ, 0] element from C
                   ↰    % And call this predicate recursively
                    |   % When the above fails (when it can't find a partition with 
                        %  [İ, 0] in it), then just output the input

代替21バイト：∋0∧ℕ₁;0;P↺c;Qc?∧P,Q↰| オンラインでお試しください！

古いコード：

22バイト

∋0&b,1;?z{=|¬∋0&}ˢtᵐ↰|

オンラインでお試しください！

∋0           If input contains a 0, 
&b           Remove input's first element, getting list of "next" elements
,1           Append 1 to that to handle last element
;?z          Zip that with input
{      }ˢ    Select only zipped pairs where
 =|          both elements are equal (to keep 0s followed by 0s)
   ¬∋0&      or the pair doesn't contain a 0
             this removes both the (pairs containing the) value
              that is followed by a 0, and the 0 itself
tᵐ           Recover back the (filtered) input array elements from the zip
↰            Call this predicate recursively 
|            If input contains no 0s, input is the output 

警告：多くの行が続きます。あなたは警告されました。

CJam、17バイト

最も危険なコード
（スタック要素は出力内のスペースのみで区切ることができ、入力配列は任意の形式にすることができます）

q~{X0={;}X?}fX]S*

オンラインでお試しください！

説明

q                                    Reads input string
 ~                                   Instantly convert to array since the string is in the CJam format
  {        }fX                       For loop
   X0=                               If X (the array element currently being checked) is equal to 0
      {;}                            Pop the top element from the stack
         X                           Else push X onto the top of the stack
          ?                          If-Else flag
              ]                      Collate all stack elements into an array
               S*                    Put a space between each array element

代替コード＃
1、27 バイト（質問に示されている形式でスタック要素を出力する必要があり、入力配列はどのような形式でもかまいません）

q~{X0={;}X?}fX]',S+*'[\+']+

オンラインでお試しください！

説明

q                                    Reads input string
 ~                                   Instantly convert to array since the string is in the CJam format
  {        }fX                       For loop
   X0=                               If X (the array element currently being checked) is equal to 0
      {;}                            Pop the top element from the stack
         X                           Else push X onto the top of the stack
          ?                          If-Else flag
              ]                      Collate stack items into an array
               ',S+                  Add together a comma and a space to create a delimiter
                   *                 Apply the delimiter to the stack
                    '[\+             Append left bracket to the left of the stack text
                        ']+          Append right bracket to the right of the stack text

代替コード＃
2、24 バイト（スタック要素を出力で照合でき、入力配列は質問に示されている正確な形式である必要があると想定）

q',/~]S*~{X0={;}X?}fX]S*

オンラインでお試しください！

説明

q                        Read input string
 ',/                     Separate by commas (since commas are an invalid array delimiter in CJam)
    ~                    Turn string into an array of substrings that make up the array
     ]S*                 Add spaces in between input numbers to prevent collation in the array
        ~                Turn the string into a valid array representative of the original
         {        }fX    For loop
          X0=            If X (the array element currently being checked) is equal to 0
             {;}         Pop the top element from the stack
                X        Else push X onto the top of the stack
                 ?       If-Else flag
                     ]   Collate all stack elements into an array
                      S* Add a space between each element

このための最も安全なコード、34バイト
（スタック要素は質問に示されている形式で出力する必要があり、入力配列は質問に示されている正確な形式であることが前提です）

q',/~]S*~{X0={;}X?}fX]',S+*'[\+']+

オンラインでお試しください！

説明

q                                      Read input string
 ',/                                   Separate by commas (since commas are an invalid array delimiter in CJam)
    ~                                  Turn string into an array of substrings that make up the array
     ]S*                               Add spaces in between input numbers to prevent collation in the array
        ~                              Turn the string into a valid array representative of the original
         {        }fX                  For loop
          X0=                          If X (the array element currently being checked) is equal to 0
             {;}                       Pop the top element from the stack
                X                      Else push X onto the top of the stack
                 ?                     If-Else flag
                     ]                 Collate stack items into an array
                      ',S+             Add together a comma and a space to create a delimiter
                          *            Apply the delimiter to the stack
                           '[\+        Append left bracket to the left of the stack text
                               ']+     Append right bracket to the right of the stack text

おかげ@Jo王の照合出力を持つものは、のようなものから無効であることを指摘して[12]と[1,2]区別できないだろう。

また、@ Jo Kingが、丁合された出力に非常に適切な代替手段を提供し、9バイトを切り捨ててくれたことにも感謝します！

赤、64バイト

func[b][a: copy[]foreach n b[either n > 0[insert a n][take a]]a]

オンラインでお試しください！