won? ( cells -- ? )

Vocabulary

minesweeper

Inputs

cells

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: minesweeper

: won? ( cells -- ? )
    [ [ { [ state>> +clicked+ = ] [ mined?>> ] } 1|| ] all? ]
    all? ;