aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

46
Task/Queue-Usage/Arturo/queue-usage.arturo
View file

@ -1,35 +1,37 @@
define :queue [][
init: [
define :queue [
init: method [][
this\items: []
]
]
empty?: function [this :queue][
zero? this\items
]
empty?: method [][
zero? this\items
]
push: function [this :queue, item][
this\items: this\items ++ item
]
push: method [item][
this\items: this\items ++ item
]
pop: function [this :queue][
ensure -> not? empty? this
pop: method [][
ensure [not? this\empty?]
result: this\items\0
this\items: remove.index this\items 0
return result
result: this\items\0
this\items: remove.index this\items 0
return result
]
]
Q: to :queue []
push Q 1
push Q 2
push Q 3
do ::
print ["queue is empty?" empty? Q]
Q\push 1
Q\push 2
Q\push 3
print ["popping:" pop Q]
print ["popping:" pop Q]
print ["popping:" pop Q]
print ["queue is empty?" Q\empty?]
print ["queue is empty?" empty? Q]
print ["popping:" Q\pop]
print ["popping:" Q\pop]
print ["popping:" Q\pop]
print ["queue is empty?" Q\empty?]