/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/SortArrays/QuickSortFunctional.pas
14 строк
401 B
Mikhalkovich Stanislav
Убрал ArrFilter и ArrTransform.
27 июл 2020, 10:13
27 июл 2020, 10:13
9ae4735
Код
Авторство
О чём код?
// Быстрая сортировка Ч. Хоара // Неэффективный код, иллюстрирующий суть алгоритма function QS(a: array of integer): array of integer := if a.Length < 2 then a else QS(a[1:].FindAll(y->y<=a[0])) + a[:1] + QS(a[1:].FindAll(y->y>a[0])); begin var a := ArrRandom(20); a.Println; var b := QS(a); b.Println; end.