Anonymous user
Sorting algorithms/Heapsort: Difference between revisions
m
→{{header|Eiffel}}
Line 940:
is_sorted (ar: ARRAY [INTEGER]): BOOLEAN
--- Is 'ar' sorted in ascending order?
local
i: INTEGER
Line 949 ⟶ 947:
i := ar.lower
until
i >= ar.upper
loop
if ar [i] > ar [i + 1] then
| |||