each-unique-permutation ( ... seq quot: ( ... elt -- ... ) -- ... )

Vocabulary

math.combinatorics

Inputs

seq	a sequence
quot	a quotation with stack effect ( ... elt -- ... )

Outputs

None

Word description

Applies the quotation to each unique permutation of seq in order.

Definition

USING: kernel math.combinatorics.private sequences ;

IN: math.combinatorics

: each-unique-permutation
    ( ... seq quot: ( ... elt -- ... ) -- ... )
    [ 0 over length ] dip unique-permutations ; inline