36 lines
741 B
Plaintext
36 lines
741 B
Plaintext
/* NetRexx */
|
|
options replace format comments java crossref savelog symbols nobinary
|
|
|
|
mqueue = ArrayDeque()
|
|
|
|
viewQueue(mqueue)
|
|
|
|
a = "Fred"
|
|
mqueue.push('') /* Puts an empty line onto the queue */
|
|
mqueue.push(a 2) /* Puts "Fred 2" onto the queue */
|
|
viewQueue(mqueue)
|
|
|
|
a = "Toft"
|
|
mqueue.add(a 2) /* Enqueues "Toft 2" */
|
|
mqueue.add('') /* Enqueues an empty line behind the last */
|
|
viewQueue(mqueue)
|
|
|
|
loop q_ = 1 while mqueue.size > 0
|
|
parse mqueue.pop.toString line
|
|
say q_.right(3)':' line
|
|
end q_
|
|
viewQueue(mqueue)
|
|
|
|
return
|
|
|
|
method viewQueue(mqueue = Deque) private static
|
|
|
|
If mqueue.size = 0 then do
|
|
Say 'Queue is empty'
|
|
end
|
|
else do
|
|
Say 'There are' mqueue.size 'elements in the queue'
|
|
end
|
|
|
|
return
|