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


Vocabulary
sequences.extras

Inputs
seqa sequence
quota quotation


Outputs
?a boolean


Definition


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