Anonymous user
Sorting algorithms/Heapsort: Difference between revisions
m
→{{header|VBA}}: fix formatting
(→{{header|VBA}}: fix bugs) |
m (→{{header|VBA}}: fix formatting) |
||
Line 4,005:
While root * 2 + 1 <= eend
Dim child As Long : child = root * 2 + 1
If
If
child = child + 1
End If
|