15 lines
248 B
Text
15 lines
248 B
Text
sequence queue = {}
|
|
|
|
procedure push(object what)
|
|
queue = append(queue,what)
|
|
end procedure
|
|
|
|
function pop()
|
|
object what = queue[1]
|
|
queue = queue[2..$]
|
|
return what
|
|
end function
|
|
|
|
function empty()
|
|
return length(queue)=0
|
|
end function
|