Winner Nicke (Revolution IV)

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

h10

by john arthur

Status: Passed
Results: pass
CPU Time: 71.884
Score: 175.0
Submitted at: 2003-11-06 17:27:34 UTC
Scored at: 2003-11-06 19:19:51 UTC

Current Rank: 5th
Based on: h9 (diff)
Basis for: h11 (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 = 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