solution ( puzzle random? -- solution )


Vocabulary
sudokus

Inputs
puzzlean object
random?an object


Outputs
solutionan object


Definition
USING: kernel lists ui.gadgets.alerts ;

IN: sudokus

: solution ( puzzle random? -- solution )
dupd solutions dup L{ } =
[ drop "Unsolvable" alert* ] [ nip car ] if ;