cyclist 7

% cyclist 7

c = 1;

f = a(:,3); g = a(:,4);
d1 = abs(a(:,1)-a(1,1)+i*(a(:,2)-a(1,2)));

go_f = f & ((2*d1) <= g(1));
go_g = g & ((2*d1) <= g(1));

while(any(go_f) | any(go_g))

indmaxf = min(find(f==max(f(go_f))));
if(~isempty(indmaxf))
    indmax = indmaxf;
else
    indmax = min(find(g==max(g(go_g))));
end    

c = [c indmax];

f(indmax) = 0;
g(1) = g(1) + g(indmax) - d1(indmax);
g(indmax) = 0;

d1 = abs(a(:,1)-a(indmax,1)+i*(a(:,2)-a(indmax,2)));
d2 = abs(a(:,1)-a(1,1)+i*(a(:,2)-a(1,2)));

go_f = f & ((d1+d2) <= g(1));
go_g = g & ((d1+d2) <= g(1));

end