Sorting algorithms/Heapsort: Difference between revisions

Content added Content deleted
Line 3,796: Line 3,796:
print_line(Arr0, !IO),
print_line(Arr0, !IO),
heapsort(<, Arr0, Arr1),
heapsort(<, Arr0, Arr1),
print_line(Arr1, !IO).
print_line(Arr1, !IO),
heapsort(>=, Arr1, Arr2),
print_line(Arr2, !IO).


%%%-------------------------------------------------------------------
%%%-------------------------------------------------------------------
Line 3,807: Line 3,809:
<pre>$ mmc heapsort_task.m && ./heapsort_task
<pre>$ mmc heapsort_task.m && ./heapsort_task
array([3, 9, 3, 8, 5, 7, 0, 7, 3, 9, 5, 0, 1, 2, 0, 5, 8, 0, 8, 3, 8, 2, 6, 6, 8, 5, 7, 6, 5, 7])
array([3, 9, 3, 8, 5, 7, 0, 7, 3, 9, 5, 0, 1, 2, 0, 5, 8, 0, 8, 3, 8, 2, 6, 6, 8, 5, 7, 6, 5, 7])
array([0, 0, 0, 0, 1, 2, 2, 3, 3, 3, 3, 5, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9])</pre>
array([0, 0, 0, 0, 1, 2, 2, 3, 3, 3, 3, 5, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9])
array([9, 9, 8, 8, 8, 8, 8, 7, 7, 7, 7, 6, 6, 6, 5, 5, 5, 5, 5, 3, 3, 3, 3, 2, 2, 1, 0, 0, 0, 0])</pre>


=={{header|NetRexx}}==
=={{header|NetRexx}}==