6 lines
103 B
Forth
6 lines
103 B
Forth
|
: testQueue
|
||
|
|
| q i |
|
||
|
|
Queue new ->q
|
||
|
|
20 loop: i [ i q push ]
|
||
|
|
while ( q empty not ) [ q pop . ] ;
|