module Numerical.FFT ( fft1d ) where import Control.Monad (when) import Control.Monad.Primitive (PrimMonad, PrimState) import Control.Monad.ST (ST, runST) import Data.Vector (Vector, MVector, (!), generate, map, thaw, freeze) import qualif…