should-swap? ( start curr seq -- ? )

Vocabulary

math.combinatorics.private

Inputs

start	an object
curr	an object
seq	an object

Outputs

?

an object

Definition

USING: kernel sequences sequences.private ;

IN: math.combinatorics.private

: should-swap? ( start curr seq -- ? )
    [ nipd nth-unsafe ] [ <slice-unsafe> member? not ] 3bi ;
    inline