Snippet Priority List

[Nestharus]

Good Tutorial on Binary Heaps and Priority Queues

library PL /* v1.0.0.1
*************************************************************************************
*
*   Priority List
*
*       i.e.
*           struct Test extends array
*               implement PL
*
*               //code
*
*           endstruct
*
************************************************************************************
*
*   */uses/*
*
*       */ Table /*       hiveworkshop.com/forums/jass-functions-413/snippet-new-table-188084/
*       */ BH /*          hiveworkshop.com/forums/submissions-414/snippet-minimum-binary-heap-199353/
*
************************************************************************************
*
*   static readonly thistype floor
*       -   The node with the floor value (max or min)
*
*   static method add takes integer value returns thistype
*       -   Adds a new value and returns the node that has it.
*   method remove takes nothing returns nothing
*       -   Removes the node
*
************************************************************************************/
    module PL
        implement BH
        
        private static thistype array n     //next
        private static thistype array p     //previous
        private static Table t              //table
        private static method onInit takes nothing returns nothing
            set t=Table.create()
        endmethod
        static method operator floor takes nothing returns thistype
            return n[thistype(1).node]
        endmethod
        static method add takes integer v returns thistype
            local thistype i=t[v]
            local thistype m=allocate(v)
            set n[m]=0
            if (0==i) then
                set i=insert(v)
                set t[v]=i
                set n<i>=i
                set p<i>=i
            endif
            set n[p<i>]=m
            set p[m]=p<i>
            set n[m]=i
            set p<i>=m
            return m
        endmethod
        method remove takes nothing returns nothing
            if (0&lt;size) then
                call deallocate()
                if n[this]==p[this] then
                    call t.remove(n[this].value)
                    call delete(n[this].heap)
                else
                    set p[n[this]]=p[this]
                    set n[p[this]]=n[this]
                endif
            endif
        endmethod
    endmodule
endlibrary
</i></i></i></i></i>

 

[Nestharus]

Updated

 

[tooltiperror]

This doesn't contain a demonstration, reasons to use it, or a nice interface.

Graveyarded.