hint ( puzzle -- puzzle' )

Vocabulary

sudokus

Inputs

puzzle

an object

Outputs

puzzle'

an object

Definition

USING: kernel random sequences vectors ;

IN: sudokus

: hint ( puzzle -- puzzle' )
    f over indices random [
        [ >vector dup f solution ]
        [ [ swap nth ] keep pick set-nth ] bi*
    ] when* ;