9 lines
203 B
Text
9 lines
203 B
Text
make "fifo []
|
|
print empty? :fifo ; true
|
|
queue "fifo 1
|
|
queue "fifo 2
|
|
queue "fifo 3
|
|
show :fifo ; [1 2 3]
|
|
print dequeue "fifo ; 1
|
|
show :fifo ; [2 3]
|
|
print empty? :fifo ; false
|