Winner Nicke (Revolution IV)

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

Revolution IV

by Nicke

Status: Passed
Results: pass
CPU Time: 2.554
Score: 139.0
Submitted at: 2003-11-06 17:58:34 UTC
Scored at: 2003-11-06 20:17:32 UTC

Current Rank: 1st

Comments
Please login or create a profile.
Code
[h w b]=size(a);
for i=1:h*w
 c=[];
 while any(i)
  i=i(1);
  c=[c; i];
  [v z]=ind2sub(h,i);
  t=i+[h*[z<w -(z>1)] v<h -(v>1)];
  i=t(a(t)==a(i)+1);
 end
 if nnz(c)>nnz(b)
  b=c;
 end
end