14 lines
141 B
Mathematica
14 lines
141 B
Mathematica
|
mystack = {};
|
||
|
|
|
||
|
|
% push
|
||
|
|
mystack{end+1} = x;
|
||
|
|
|
||
|
|
%pop
|
||
|
|
x = mystack{end}; mystack{end} = [];
|
||
|
|
|
||
|
|
%peek,top
|
||
|
|
x = mystack{end};
|
||
|
|
|
||
|
|
% empty
|
||
|
|
isempty(mystack)
|