Sorting algorithms/Heapsort: Difference between revisions
Content added Content deleted
m (→{{header|FreeBASIC}}: cleaned up code) |
m (→{{header|FreeBASIC}}: removed redundant code) |
||
Line 1,565: | Line 1,565: | ||
Return |
Return |
||
End If |
End If |
||
Wend |
|||
End Sub |
|||
Sub heapify(hs() As Long, count As ULong) |
|||
Dim As Long start = (count -2) \ 2 |
|||
While start >= 0 |
|||
siftdown(hs(), start, count) |
|||
start = start -1 |
|||
Wend |
Wend |
||