Реализации алгоритмов/Сортировка/Слиянием: различия между версиями

Содержимое удалено Содержимое добавлено
мНет описания правки
Строка 679:
while ((l_left.count > 0) and (l_right.count > 0)) loop
if l_left(l_left.first) <= l_right(l_right.first) then
l_res.extend;
l_res(l_res.last):= l_left(l_left.first);
l_left.delete(l_left.first);
else
l_res.extend;
l_res(l_res.last):= l_right(l_right.first);
l_right.delete(l_right.first);
end if;
end loop;
if (l_left.count > 0) then --если левый подмассив не пуст, весь дописываем в результат
for i in l_left.first..l_left.last loop
l_res.extend;
Строка 702 ⟶ 697 :
end if;
if (l_right.count > 0) then --если правый подмассив не пуст, весь дописываем в результат
for i in l_right.first..l_right.last loop
l_res.extend;
Строка 708 ⟶ 703 :
end loop;
end if;
 
return l_res;