Anonymous user
Priority queue: Difference between revisions
m
→{{header|uBasic/4tH}}
imported>Thebeez |
|||
Line 8,161:
Print
Proc _Insert(3,
Proc _Insert(4,
Proc _Insert(5,
Proc _Insert(1,
Proc _Insert(2,
For x = 0 To b: Proc _List(x) : Next ' list all entries
Line 8,181:
Local (2)
' return dummy on error
If b < 0 Then Return
a@ = @(0)) ' save the top entry
For b@ = 0 To Set(b, b - 1) : @(b@) = @(b@+1): Next
|