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
    '[ dup 4 >= [ drop fill-value ] [ _ nth ] if ] B{ } map-as ;