23 lines
387 B
Text
23 lines
387 B
Text
Stack: $[]-> []
|
|
|
|
pushTo: function [st val]-> 'st ++ val
|
|
popStack: function [s] [
|
|
result: last s
|
|
remove 's .index (size s)-1
|
|
return result
|
|
]
|
|
emptyStack: function [st]-> empty 'st
|
|
printStack: function [st]-> print st
|
|
|
|
st: new Stack
|
|
|
|
pushTo st "one"
|
|
pushTo st "two"
|
|
pushTo st "three"
|
|
printStack st
|
|
|
|
print popStack st
|
|
printStack st
|
|
|
|
emptyStack st
|
|
print ["finally:" st]
|