Winner Nicke (Revolution IV)
by matt traudt
Status: Passed Results: pass CPU Time: 41.95 Score: 262.0 Submitted at: 2003-11-06 16:27:03 UTC Scored at: 2003-11-06 17:01:35 UTC
Current Rank: 145th Based on: cyclist_4 (diff)
[n m]=size(a); z=n*m; for i=1:z p{i}=i; end for i=1:99 for k=1:z e=p{k}(end); w = a(e)+1; if e+n<=z & a(e+n)==w p{k} = [p{k} e+n]; elseif e>n & a(e-n)==w p{k} = [p{k} e-n]; elseif mod(e-1,n)<n-1 & a(e+1)==w p{k} = [p{k} e+1]; elseif mod(e-1,n)>0 & a(e-1)==w p{k} = [p{k} e-1]; end d(k) = nnz(p{k}); end end [a b]=max(d); b = p{b}'