(validate-readln) ( str -- ? )

Vocabulary

rosetta-code.bulls-and-cows

Inputs

str

an object

Outputs

?

an object

Definition

USING: ascii kernel sequences ;

IN: rosetta-code.bulls-and-cows

: (validate-readln) ( str -- ? )
    [ length 4 = not ] [ [ letter? ] all? ] bi or ;