solver(puzzle,list)

function solution = solver(puzzle,list)
% SOLUTION = SOLVER(PUZZLE,LIST) Sudoku solver 
%
% Copyright 2005 The MathWorks, Inc.

q = find(puzzle==0); 
puzzle(q) = list(1:numel(q));
solution = puzzle;