Rosetta Code

Doubly-linked list/Definition: Difference between revisions

Page Discussion

Doubly-linked list/Definition (view source)

Revision as of 19:10, 4 August 2018

155 bytes removed ,  5 years ago
m
→‎{{header|M2000 Interpreter}}
Line 1,524:
Group Head, Tail
Module PushTail(k as pointer) {
if .Tail is Null then {
.Head<=k
.Tail<=k
} else {
n=.Tail
.Tail<=k
k=>pred=n=>pred
n=>pred=k
k=>succ=n
}▼
}
}
Function RemoveTail {
n=.Tail
if n is .Head then {
.Head->Null
.Tail->Null
} Else {
.Tail<=n=>succ
.Tail=>pred=n=>pred
n=>pred->Null
}
for n {
.succ->Null
.pred->Null
▲ }
=n▼
}
▲ }=n
▲ =n}
Module PushHead(k as pointer) {
if .head is Null then {
Line 1,646:
L.InsertAfter m1, newNode
L.RemoveNode m1
clear m1 ' last time mm1 used here
newNode=Null
Print "ok.............."
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/94692"