14 lines
316 B
Text
14 lines
316 B
Text
uses objectclass;
|
|
define :class ListNode;
|
|
slot value = [];
|
|
slot next = [];
|
|
enddefine;
|
|
|
|
define insert_into_List(anchor, x);
|
|
consListNode(x, next(anchor)) -> next(anchor);
|
|
enddefine;
|
|
;;; Build inital list
|
|
lvars l2 = consListNode("a", []);
|
|
insert_into_List(l2, "b");
|
|
;;; insert c
|
|
insert_into_List(l2, "c");
|