(slow-fft) ( seq inverse? -- seq' )

Vocabulary

math.transforms.fft.private

Inputs

seq	an object
inverse?	an object

Outputs

seq'

an object

Definition

USING: kernel math math.constants math.functions math.vectors
sequences ;

IN: math.transforms.fft.private

:: (slow-fft) ( seq inverse? -- seq' )
    seq length :> N inverse? 1 -1 ? 2pi * N / N <iota> n*v
    :> omega N <iota> [| k |
        0 seq omega [ k * cis * + ] 2each inverse? [ N / ] when
    ] map ; inline