Shevchenko / 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