shuffle ( seq permutation -- newseq )

Vocabulary

images.normalization.private

Inputs

seq	an object
permutation	an object

Outputs

newseq

an object

Definition

USING: kernel math sequences ;

IN: images.normalization.private

: shuffle ( seq permutation -- newseq )
    swap [ nth ] curry [ [ dup 4 >= [ drop fill-value ] ] ] dip
    [ if ] curry compose B{ } map-as ;