permutation ( src dst -- seq )

Vocabulary

images.normalization.private

Inputs

src	an object
dst	an object

Outputs

seq

an object

Definition

USING: kernel sequences ;

IN: images.normalization.private

: permutation ( src dst -- seq )
    swap [ index [ don't-care ] unless* ] curry { } map-as
    4 don't-care pad-tail ;