find-combination ( ... seq k quot: ( ... elt -- ... ? ) -- ... elt/f )

Vocabulary
math.combinatorics

Definition

USING: kernel math.combinatorics.private sequences ;

IN: math.combinatorics

: find-combination
    ( ... seq k quot: ( ... elt -- ... ? ) -- ... elt/f )
    [ combinations-quot find drop ]
    [ drop pick [ combination ] [ 3drop f ] if ] 3bi ; inline