Stack: Difference between revisions
Content added Content deleted
(PascalABC.NET) |
|||
Line 5,326: | Line 5,326: | ||
dispose(node); |
dispose(node); |
||
end;</syntaxhighlight> |
end;</syntaxhighlight> |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
begin |
|||
var st := new Stack<integer>; |
|||
var st1 := new Stack<integer>; |
|||
st.Push(1); |
|||
st.Push(2); |
|||
st.Push(3); |
|||
Println(st1,st); |
|||
while st.Count <> 0 do |
|||
st1.Push(st.Pop); |
|||
Println(st1,st); |
|||
end. |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[] [3,2,1] |
|||
[1,2,3] [] |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |