2sem / LR4

clc
clear
global cm;
cm=0;
N=7;
S=[10 8 3 28 11 4 1];
function[S] = quicksort(S); %задаем функцию
if ~(numel(S)<=1); %проверяем на наличие вектора
global cm;
cm=cm+1;
pivot=S(1); %выбираем элемент, относительно которого
A1=quicksort(S(S<pivot)); %создаем части А1 А2 А3
A2=S(S==pivot);
A3=quicksort(S(S>pivot)); %которые быстро сортируем
S=[A1 A2 A3]; %складываем части в один вектор
end
end

tic
y=quicksort(S); %обращаемся к функции
toc
S
y
cm