>fftw-array ( seq -- array )

Vocabulary

fftw.private

Inputs

seq

an object

Outputs

array

an object

Definition

USING: kernel math sequences sequences.private ;

IN: fftw.private

: >fftw-array ( seq -- array )
    [ length <fftw-array> ] keep over [ nth ] curry
    [ [ [ >rect 0 1 ] ] ] dip
    [ bi* [ set-nth-unsafe ] curry bi-curry@ bi* ] curry compose
    each-index ;