one? ( ... seq quot: ( ... elt -- ... ? ) -- ... ? )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

?

a boolean

Definition

USING: kernel math sequences ;

IN: sequences.extras

: one? ( ... seq quot: ( ... elt -- ... ? ) -- ... ? )
    [ find ] 2check
    [ [ 1 + ] 2dip find-from drop not ] [ 3drop f ] if ; inline