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

Vocabulary
math.combinatorics

Definition

USING: kernel math.combinatorics.private sequences ;

IN: math.combinatorics

: find-permutation
    ( ... seq quot: ( ... elt -- ... ? ) -- ... elt/f )
    [ permutations-quot find drop ]
    [ drop over [ permutation ] [ 2drop f ] if ] 2bi ; inline