% Marie Schumacher
function SudokuShort(matrix)         
if find(~matrix)                 % x-Wert=Zeile, y-Wert=Spalte der Nullstelle
  [x,y]=find(~matrix);    
  for n=1:9                    % einzusetzender Wert n % Spalte testen & Zeile testen & Quadrat testen        
    if ((matrix(1:3,y(1))~=n)' & (matrix(4:6,y(1))~=n)' & (matrix(7:9,y(1))~=n)' & ...
        (matrix(x(1),1:3)~=n)  & (matrix(x(1),4:6)~=n)  & (matrix(x(1),7:9)~=n)  & ...
        (matrix(((floor((x(1)-1)/3))*3)+1,((floor((y(1)-1)/3))*3)+1:((floor((y(1)-1)/3))*3)+3)~=n) & ...
        (matrix(((floor((x(1)-1)/3))*3)+2,((floor((y(1)-1)/3))*3)+1:((floor((y(1)-1)/3))*3)+3)~=n) & ...
        (matrix(((floor((x(1)-1)/3))*3)+3,((floor((y(1)-1)/3))*3)+1:((floor((y(1)-1)/3))*3)+3)~=n))
        matrix(x(1),y(1))=n;
        SudokuShort(matrix);   
    end
  end
else
  matrix
end