make-24 ( -- array )
The Game of 24

Prev:	24-game ( -- )
Next:	makes-24? ( a b c d -- ? )

Vocabulary
24-game

Inputs
None

Outputs

array

an array

Word description
Produces a vector with 4 integers. With the following condition: If these integers were directly on the stack, one can process them into 24, just using the provided commands and the 4 numbers. The Following are the provided commands: +, -, *, /, swap, and rot.

Examples

USING: 24-game kernel sequences prettyprint ; make-24 length 4 = .
t

Notes
makes-24? is used in makes-24?.

Definition

USING: combinators.smart kernel sequences ;

IN: 24-game

: make-24 ( -- array )
    [ random-4 dup first4 makes-24? not ] smart-loop ;