search ( x y -- )

Vocabulary

sudoku

Inputs

x	an object
y	an object

Outputs

None

Definition

USING: combinators kernel math ;

IN: sudoku

: search ( x y -- )
    {
        { [ over 9 = ] [ [ drop 0 ] dip 1 + search ] }
        { [ over 0 = over 9 = and ] [ 2drop solution. ] }
        { [ 2dup board> ] [ [ 1 + ] dip search ] }
        [ solve ]
    } cond ;