bwt ( seq -- i newseq )

Vocabulary

math.transforms.bwt

Inputs

seq

an object

Outputs

i	an object
newseq	an object

Definition

USING: accessors kernel sequences sequences.rotated sorting ;

IN: math.transforms.bwt

:: bwt ( seq -- i newseq )
    seq all-rotations sort [ [ n>> 0 = ] find drop ] keep
    [ last ] seq map-as ;