Marvellous Melbourne

Status: Passed
Results: pass
CPU Time: 42.781
Score: 244.0
Submitted at: 2003-11-06 16:42:14 UTC
Scored at: 2003-11-06 17:53:28 UTC

Current Rank: 65th
Based on: Stimulating Stirling (diff)
Basis for: Striking Sydney (diff)

Comments
Add a comment:	Please login or create a profile.

Code

[n m]=size(a);
z=n*m;
p = num2cell(1:z);
for i=1:99
    for k=1:z
        e=p{k}(end);
        h = a(e)+1;
        g = e-1;
        f = mod(g,n);
P = p{k}
        if e+n<=z & a(e+n)==h
            p{k} = [P e+n];
        elseif e>n & a(e-n)==h
            p{k} = [P e-n];
        elseif f<n-1 & a(e+1)==h
            p{k} = [P e+1];
        elseif f>0 & a(g)==h
            p{k} = [P g];
        end
        d(k) = nnz(P);
    end
end
[v b]=max(d);
b = p{b}'