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:
Return
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
 
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Heapsort"