create ( difficulty -- puzzle )

Vocabulary

sudokus

Inputs

difficulty

an object

Outputs

puzzle

an object

Definition

USING: arrays kernel math random sequences ;

IN: sudokus

: create ( difficulty -- puzzle )
    81 f <array> 40 random solution
    [ [ f swap [ length random ] keep set-nth ] curry times ]
    keep ;