Finish 2003-11-13 10:00:00 UTC

PPath III

by Per Rutquist

Status: Passed
Results: pass
CPU Time: 2.093
Score: 130.0
Submitted at: 2003-11-06 12:41:03 UTC
Scored at: 2003-11-06 15:23:46 UTC

Current Rank: 2nd
Based on: PPath II (diff)
Basis for: PPath IV (diff)
Basis for: zzz's (diff)
Basis for: twk! (diff)

Comments
Per Rutquist
06 Nov 2003
Again, hope it works!
Please login or create a profile.
Code
d = b*[1;i];
p = d==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