Diffing "cyclist_4" and "twist"

[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);
        if e+n<=z & a(e+n)==a(e)+1
        w = a(e)+1;
        if e+n<=z & a(e+n)==w
            p{k} = [p{k} e+n];
        elseif e>n & a(e-n)==a(e)+1
        elseif e>n & a(e-n)==w
            p{k} = [p{k} e-n];
        elseif mod(e-1,n)<n-1 & a(e+1)==a(e)+1
        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)==a(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}'