RosettaCodeData/Task/Singly-linked-list-Traversal/XPL0/singly-linked-list-traversal.xpl0
2023-07-01 13:44:08 -04:00

6 lines
209 B
Text

def \Node\ Link, Data; \linked list element definition
int Node, List;
[Node:= List; \traverse the linked list
while Node # 0 do
Node:= Node(Link); \move to next node
]