shuffle-effect ( effect -- quot )

Vocabulary

shuffle

Inputs

effect

an object

Outputs

quot

an object

Definition

USING: accessors assocs combinators kernel sequences
sequences.generalizations ;

IN: shuffle

MACRO: shuffle-effect ( effect -- quot )
    [ in>> H{ } zip-index-as ] [ out>> ] bi
    [ drop assoc-size [ narray ] curry ]
    [ [ of [ swap nth ] curry ] with map ] 2bi [ cleave ] curry
    compose ;