Priority queue: Difference between revisions

flush

// subs can read from module's stack

Data 4 ,"Feed cat",5 , "Make tea", 3, "Clear drains",1 , "Solve RC tasks"

AddItems(pq)

println("Add items to zz queue")

AddItems(zz, 2 , "Tax return", 1 ,"Solve RC tasks#2")

PeekTop(zz) // Solve RC tasks#2

merge(pq, zz, false)

println("Peek top from pq queue")

PopOne(pq)

end while

while len(zz)>0

PopOne(zz)

sub merge(pq, qp, emptyqueue)

local needsort=false

while kqp

k$= eval$(kqp!)

if not exist(pq, eval$(kqp!)) then

needsort=true

else

end if

stack p {

if emptyqueue then