find-selection ( ... seq n quot: ( ... elt -- ... ? ) -- ... elt/f )

Vocabulary

math.combinatorics

Inputs

seq	an object
n	an object
quot	a quotation with stack effect ( ... elt -- ... ? )

Outputs

elt/f

an object

Definition

USING: kernel math.combinatorics.private sequences ;

IN: math.combinatorics

: find-selection
    ( ... seq n quot: ( ... elt -- ... ? ) -- ... elt/f )
    [ f ] 3dip [ [ nip ] ] dip [ 1check ] curry compose
    selections-quot find drop and* ; inline