Anonymous user
Sorting algorithms/Heapsort: Difference between revisions
m
→{{header|BCPL}}
Line 191:
LET start() = VALOF {
LET v = VEC 1000
FOR i = 1 TO 1000 DO v!i := randno(1_000_000)
heapsort(v, 1000)
|