Winner Nicke (Revolution IV)

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

h9

by john arthur

Status: Passed
Results: pass
CPU Time: 14.11
Score: 181.0
Submitted at: 2003-11-06 17:21:02 UTC
Scored at: 2003-11-06 19:14:22 UTC

Current Rank: 7th
Based on: h8 (diff)
Basis for: h10 (diff)

Comments
Please login or create a profile.
Code
[h w b]=size(a);
p=h*w;
  for i=1:p*9
    i=mod(i-1,p)+1;
    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