Rosetta Code

Doubly-linked list/Definition: Difference between revisions

Page Discussion

Doubly-linked list/Definition (view source)

Revision as of 19:11, 4 August 2018

131 bytes removed ,  5 years ago
m
→‎{{header|M2000 Interpreter}}
Line 1,573:
n=>succ->Null
}
for n {
.succ->Null
.pred->Null
}
=n
}
Module RemoveNode(k as pointer) {
pred=k=>pred
succ=k=>succ
if pred is succ then {
if .head is k else Error "Can't remove this node"
k=.RemoveJead()
clear k
} else {
pred=>succ=succ
succ=>pred=pred
}
}
Module InsertAfter(k as pointer, n as pointer) {
pred=k=>pred
n=>pred=pred
n=>succ=k
pred=>succ=n
k=>pred=n
}
Function IsEmpty {
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/94693"