/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LINQ/QuickSortLinq.pas
19 строк
387 B
miks1965
Поправил примеры
22 июл 2015, 22:34
22 июл 2015, 22:34
12735ca
Код
Авторство
О чём код?
function QuickSort(a: sequence of integer): sequence of integer; begin if a.Count = 0 then Result := a else begin var head := a.First(); var tail := a.Skip(1); Result := QuickSort(tail.Where(x->x<=head)) + head + QuickSort(tail.Where(x->x>head)); end; end; begin var a := ArrRandom(20); a.Println; QuickSort(a).Println; end.