Diffing "PPath II" and "PPath III"

Title: PPath II PPath III
Author: Per Rutquist Per Rutquist
Submitted: 2003-11-06 12:13:13 UTC 2003-11-06 12:41:03 UTC
Status: Failed Passed
Score: 130.0
Result: pass
CPU Time: 2.093
Code:
d = b*[1;i];
p = ~~b(:,1);
p = d==d;
f = abs(p*d.'-d*p');
h = p'/0;
h(1) = 0;
for j=h
    [h, r] = min((p*h+f./a+~f)');
for j=p'
    q=h'*p'+f./a
    [h,r] = min(q+~f)
    [h] = min(q)
end
[x,c]=max(h);
while(c(1)>1)
  c=[r(c(1)) c];
end