Winner Nicke (Revolution IV)

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

h12

by john arthur

Status: Passed
Results: pass
CPU Time: 13.98
Score: 174.0
Submitted at: 2003-11-06 17:46:08 UTC
Scored at: 2003-11-06 19:40:04 UTC

Current Rank: 4th
Based on: h11 (diff)
Basis for: h13 (diff)
Comments
Please login or create a profile.
Code 
[h w b]=size(a);
p=h*w;
for k=';;;;;;;;;'
  for i=1:p
    c=i;   
    while i
      t = i+[1&mod(i,h) -(1&mod(i-1,h)) h -h];
      t(t<1|t>p)=i;
      i = t(a(t)==a(i)+1);
      j=nnz(i);
      if j>1
          i=i(ceil(j*rand));
      end
      c =[c; i];
   end

   if nnz(c)>nnz(b)
      b=c;
   end
end  
end