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

PPath IV

by Per Rutquist

Status: Passed
Results: pass
CPU Time: 0.741
Score: 128.0
Submitted at: 2003-11-06 12:52:19 UTC
Scored at: 2003-11-06 20:27:31 UTC

Current Rank: 1st
Based on: PPath III (diff)

Comments
Per Rutquist
06 Nov 2003
The theory is sound. Hope I haven't overlooked anything.
Please login or create a profile.
Code
d = [1 i]*b';
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