all-same-eq? ( 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: grouping kernel sequences ;

IN: sequences.extras

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