Diffing "PPath III" and "twk!"

Title: PPath III twk!
Author: Per Rutquist jed pack
Submitted: 2003-11-06 12:41:03 UTC 2003-11-06 12:58:18 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>0
f = abs(p*d.'-d*p');
h = p'/0;
h(1) = 0;
for j=p'
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