all-same? ( seq quot: ( elt -- obj/f ) -- ? )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( elt -- obj/f )

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

:: all-same? ( seq quot: ( elt -- obj/f ) -- ? )
    seq
    [ t ] [ unclip-slice quot call '[ quot call _ = ] all? ]
    if-empty ; inline