Быстрая сортировка (Хоара) для cell arrays

function List=uuu
fid=fopen('spisok.txt','rt+');
i=1; 
while feof(fid)==0
    List(i).krs=fscanf(fid,'%d',1);
    List(i).gro=fscanf(fid,'%s',1);
    List(i).fio=fscanf(fid,'%s',3);
    List(i).fiv=fscanf(fid,'%d',1);
    List(i).fou=fscanf(fid,'%d',1);
    List(i).thr=fscanf(fid,'%d',1);
    List(i).two=fscanf(fid,'%d',1);
    i=i+1;
end
fclose(fid);
 
% Мастерим ключ для каждой записи
[m n]=size(List);
for i=1:n-1
    List(i).key=zeros(1,22);
    List(i).key(1:2)=[List(i).fiv List(i).fou];
    List(i).key(3:length(List(i).fio)+2)=int16(List(i).fio);
end
List=qiqsort(List,1,n-1);
end
 
% Функция сравнения двух записей по их ключам
function BOO=menee(List,a,b)
A=List(a).key;
B=List(b).key;
c=A-B;
for i=1:length(c)
    if c(i)<0
        BOO=1;
        break;
    elseif c(i)>0
        BOO=0;
        break
    end
    BOO=0;
end
end
 
% Функция быстрой сортировки
function List=qiqsort(List,l,r)
i=l; j=r; 
m=ceil(abs((r-l+1)*cos(random('gam',10,1000)))); % Возвращает произвольное целое m из [1;7]
disp(m); % Контроль случая
while i<=j
    while menee(List,i,m)==1; i=i+1; end
    while menee(List,m,j)==1; j=j-1; end
        if i<=j
            if menee(List,j,i)==1
                buff=List(i); List(i)=List(j); List(j).key=buff;
            end
            i=i+1; j=j-1;
        end
end
if l<j; r=j; qiqsort(l,r); end
if i<r; l=i; qiqsort(l,r); end
end

% Функция быстрой сортировки
function List=qiqsort(List,l,r,varargin)
i=l; j=r; 
if nargin==4
    direc=varargin{1};
else
    direc=1;
end
 
while i~=j
    if menee(List,j,i)
        buf=List(i);
        List(i)=List(j);
        List(j)=buf;
        direc =~direc;
    end
    if direc ==1
        j=j-1;
    else
        i=i+1;
    end
end
 
if i-1-l>1
    direc =~direc;
    List=qiqsort(List,l,i-1,direc);
end
if r-i>1
    direc =~direc;
    List=qiqsort(List,i,r,direc);
end
end