Question

我想从链接列表中删除一个元素并将其推送到Stack.I尝试编写此代码。我正在编写代码将元素推入堆栈，但它给出了错误。该代码正在评论中。

//双重链接列表

sig node{}
sig list
{
    elts: set node,
    next: elts lone->lone elts,
    prev: elts lone->lone elts,
    first: one node,
    last: one node
} 
{
    all x:elts | x not in x.^next
    all x:elts | x not in x.^prev
    no first.prev
    no last.next

    first.^next=elts-first
    last.^prev=elts-last
    all x,x1:elts | (x.next=x1) =>(x1.prev=x)
}

//堆栈

one sig Null extends node{}

sig stack
{
    elts: set node,
    top: one elts,
    next: elts lone ->lone elts
} 
{
    all e:elts | all l:list | all l1:l.elts | l1 not in e
    all e:elts | e not in e.^next
    no Null.next
    top.^next=elts-top
    Null in elts
} 
pred undo(beforelist,afterlist:list,beforestack,afterstack:stack)
{

我试过这段代码（在评论中）将元素插入到堆栈中。但这没有发现实例发现错误。

/*
    afterstack.elts=beforestack.elts+(beforelist.last)
    beforelist.last=afterstack.top
    afterstack.next=beforestack.next+(beforelist.last->beforestack.top)
*/  

    //afterstack.elts=(beforestack.elts)+(beforelist.last)

        afterlist.elts=beforelist.elts-beforelist.last
        afterlist.last=beforelist.last.(beforelist.prev)
    }
run undo for 2 list,2 stack, 5 node

Answer 1

“找不到实例”不是错误，它只是分析的结果。

在您的情况下，由于这两个竞争约束

，它无法找到实例

// inside appended facts for sig stack
all e:elts | all l:list | all l1:l.elts | l1 not in e

和

afterstack.elts=beforestack.elts+(beforelist.last)

第一个说没有堆栈可以与任何列表共享一个节点。第二个明确指出afterstack的元素必须包含beforelist的最后一个节点。

我认为你应该删除第一个事实并将其写为谓词，然后你可以在给定的（node，list）对（或一组对）上断言，因为，我假设，你的目标是说在约束之前的“之前”状态，以及“之后”状态。

从链表中删除节点并使用合金分析器推入堆栈

1 个答案: