使用列表处理堆栈，erlang

Question

我有一个堆栈，我想把一个列表推送到堆栈中。例如

comp:stack（｛push，〔｛plus，｛num，2｝，｛num2｝｝〕｝，〔〕）。

然后它应该被存储在堆栈中，类似于这个

｛｛num，2｝，｛num、2｝、plus｝-例如，push-plus将位于底部，然后num2将位于顶部，另一个num2将处于前一个num1的顶部。

现在我想弹出整个列表并获得类似的东西

｛｛num，2｝、｛num、2｝和｝

到目前为止，这是我的代码，它所做的只是一次推一个和弹出一个。

stack([],StackList) -> [];
stack({push,[H|T]},StackList) -> 
{[H|T]++StackList}.
stack(pop,[StackH|StackT])-> {StackH,StackT}.

我是二郎的新手，我的解释对某些人来说可能很可怕。请帮帮我，谢谢。

Answer 1

我认为这应该适用于您：

stack({push, []}, StackList) -> StackList;
stack({push,[H|T]}, StackList) -> 
    stack({push, T}, [H | StackList]);
stack(pop,[StackH|StackT])-> {StackH,StackT}.

对于要推送的每个元素，都递归地调用CCD_ 1。

使用示例：

1> S0 = comp:stack({push, [plus,{num,2},{num,2}]}, []).
[{num,2},{num,2},plus]
2> {Reg1, S1} = comp:stack(pop, S0).                           
{{num,2},[{num,2},plus]}
3> {Reg2, S2} = comp:stack(pop, S1).
{{num,2},[plus]}
4> {Op, S3} = comp:stack(pop, S2).
{plus,[]}
5> Resault = comp:operation(Op, Reg1, Reg2). %% my guess
6> S4 = comp:stack({push, [Resault]}, S3).
...

在从空堆栈弹出的情况下，如何处理错误取决于您。

Answer 2

erlang中的用法是创建一个专门用于管理数据结构的模块，并提供一些操作它的接口。您可以在stdlib库中找到这样的例子：dict、lists、gb_trees。。。

您将使用的方式是：Stack = stack:new()、NewStack = stack:push(Value,Stack)、{Value,NewStack} = stack:pop(Stack)。。。在堆栈的情况下，这很容易，因为erlang列表类型适合堆栈的所有使用。然后您可以编写一个模块：

-module(stack).
-export([new/0, push/2, is_empty/1]).
% add your own interfaces
new() -> [].
push(Value,Stack) when is_list(Stack) -> [Value|Stack].
is_empty([]) -> true;
is_empty(Stack) when is_list(Stack) -> false. 
% and so on...