27 lines
529 B
Text
27 lines
529 B
Text
|
MODULE SinglyLinkedList EXPORTS Main;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
Link = REF LinkRcd;
|
||
|
|
LinkRcd = RECORD
|
||
|
|
Next: Link;
|
||
|
|
Data: INTEGER
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE InsertAppend(anchor, next: Link) =
|
||
|
|
BEGIN
|
||
|
|
IF anchor # NIL AND next # NIL THEN
|
||
|
|
next.Next := anchor.Next;
|
||
|
|
anchor.Next := next
|
||
|
|
END
|
||
|
|
END InsertAppend;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
a: Link := NEW(Link, Next := NIL, Data := 1);
|
||
|
|
b: Link := NEW(Link, Next := NIL, Data := 2);
|
||
|
|
c: Link := NEW(Link, Next := NIL, Data := 3);
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
InsertAppend(a, b);
|
||
|
|
InsertAppend(a, c)
|
||
|
|
END SinglyLinkedList.
|