Diffing "PPath III" and "zzz's"

Title: PPath III zzz's
Author: Per Rutquist K Lindstrom
Submitted: 2003-11-06 12:41:03 UTC 2003-11-06 12:57:08 UTC
Status: Passed Failed
Score: 130.0 0.0
Result: pass []
CPU Time: 2.093 0.0
Code:
d = b*[1;i];
p = d==d;
p = ~~d;
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)
end
[x,c]=max(h);
while(c(1)>1)
  c=[r(c(1)) c];
end