13 lines
284 B
Smalltalk
13 lines
284 B
Smalltalk
|
"Protocol: visiting"
|
||
|
|
LevelOrder>>visit: aNode
|
||
|
|
| queue |
|
||
|
|
queue := OrderedCollection with: aNode.
|
||
|
|
[(queue removeFirst accept: self with: queue) isEmpty] whileFalse
|
||
|
|
|
||
|
|
LevelOrder>>visit: aNode with: aQueue
|
||
|
|
block value: aNode.
|
||
|
|
^aQueue
|
||
|
|
add: aNode left;
|
||
|
|
add: aNode right;
|
||
|
|
yourself
|