play-24 ( array -- )

Vocabulary

24-game

Inputs

array

an object

Outputs

None

Definition

USING: combinators kernel sequences ;

IN: 24-game

: play-24 ( array -- )
    {
        { [ dup length 1 = ] [ end-game ] }
        { [ dup last "quit" = ] [ quit-game ] }
        [ try-operator play-24 ]
    } cond ;