rev-haar ( seq -- seq' )

Vocabulary

math.transforms.haar

Inputs

seq	a sequence

Outputs

seq'	a sequence

Word description

Reverse Haar wavelet transform function.

Notes

The sequence length should be a power of two.

Examples

USING: math.transforms.haar prettyprint ; { 3 2 -1 -2 3 0 4 1 } rev-haar .
{ 7 1 6 6 3 -5 4 2 }

Definition

USING: kernel math math.transforms.haar.private sequences ;

IN: math.transforms.haar

: rev-haar ( seq -- seq' )
    dup length 2 > [ halves swap rev-haar prepend ] when
    rev-haar-step ;