%SUDOKUSHORT möglichst kurzes Programm zum Lösen von Sudokus von Moritz Weber
function X=SudokuShort(X)
for ii=1:81 
  for jj=1:9
    if (X(ii)==0 && sum(X((mod(ii-1,9)+1),:)==jj)==0 && sum(X(:,(ceil(ii/9)))==jj)==0 && ...
        sum(sum(X((ceil((mod(ii-1,9)+1)/3)*3)-2:((ceil((mod(ii-1,9)+1)/3)*3)-2)+2,...
        (ceil((ceil(ii/9))/3)*3)-2:((ceil((ceil(ii/9))/3)*3)-2)+2)==jj))==0) 
      X(ii)=jj;
      Y=SudokuShort(X);
      X(ii)=0;
      if (sum(sum(Y==0))==0) 
        X=Y;
      end
    end    
  end 
  if (X(ii)==0) 
    return 
  end    
end