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 ] ] dip [ = ] curry compose all? ]
        [ drop f ] if*
    ] if-empty ; inline