all-equal-value? ( value seq -- ? )

Vocabulary

gamelib.board

Inputs

value	an object
seq	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: gamelib.board

:: all-equal-value? ( value seq -- ? ) seq [ value = ] all? ;