Diffing "Tweak VI" and "Tweak VII"

Title: Tweak VI Tweak VII
Author: Peter J. Acklam Peter J. Acklam
Submitted: 2003-11-06 11:41:58 UTC 2003-11-06 11:42:24 UTC
Status: Failed Failed
Score: 0.0 0.0
Result: [] []
CPU Time: 0.0 0.0
Code: 
n = size(a, 1);
S = {1};
D = Inf*(1:n);
P = cell(1, n);
while numel(S)
   p = S{end};
   S(end)=[];
   for q = setdiff(find(a(p(end),:)), p);
      r = [p q];
      S{end+1} = r;
      d=b(r(2:end),:)-b(r(1:end-1),:);
      d=d(:)'*d(:);
      u=r(end);
      if d < D(u)
         D(u) = d;
         P{u} = r;
      end
   end
end

D(D>999)=0;
D(D>99)=0;
[i,j]=max(D);
c=P{j};