treetype = tree(string, treetype, treetype);
empty()
,
:
tree(1,
tree(2,
tree(4, empty, empty),
tree(5, empty, empty)),
tree(3,
tree(6, empty, empty),
tree(7, empty, empty)))
. , , , . . , , . . ([]), . [] , . . , , , : . . , , . , .
:
[1, 2, 3]
1 , [2, 3]
2 , [3]
3 , []
X Y. [X|Y], X Y . X , Y .
[1, 2, 3] [X|Y] X 1, Y [2, 3]. .
list, :
type list = ^TElemList;
TElemList = record;
Inf: char;
Next: list;
end;
: