Diffing "PPath III" and "PPath IV"

Title: PPath III PPath IV
Author: Per Rutquist Per Rutquist
Submitted: 2003-11-06 12:41:03 UTC 2003-11-06 12:52:19 UTC
Status: Passed Passed
Score: 130.0 128.0
Result: pass pass
CPU Time: 2.093 0.741
Code:
d = b*[1;i];
d = [1 i]*b';
p = d==d;
f = abs(p*d.'-d*p');
h = p'/0;
f = abs(p'*d-d.'*p);
h = p/0;
h(1) = 0;
for j=p'
    q=h'*p'+f./a
    [h,r] = min(q+~f)
    [h] = min(q)
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