18 lines
598 B
Smalltalk
18 lines
598 B
Smalltalk
| tree |
|
|
tree := (Node data: 1)
|
|
left: ((Node data: 2)
|
|
left: ((Node data: 4)
|
|
left: (Node data: 7));
|
|
right: (Node data: 5));
|
|
right: ((Node data: 3)
|
|
left: ((Node data: 6)
|
|
left: (Node data: 8);
|
|
right: (Node data: 9))).
|
|
tree traverse: PreOrder do: [:node | Transcript print: node data; space].
|
|
Transcript cr.
|
|
tree traverse: InOrder do: [:node | Transcript print: node data; space].
|
|
Transcript cr.
|
|
tree traverse: PostOrder do: [:node | Transcript print: node data; space].
|
|
Transcript cr.
|
|
tree traverse: LevelOrder do: [:node | Transcript print: node data; space].
|
|
Transcript cr.
|