二次元配列を一次元で表現するために、二重ループが入るが、その際のVectorのappendで時間がかかる… module Numerical.FFT ( fft1d ) where import Prelude hiding ((++),length,map) import Data.Vector import Data.Maybe import Data.Complex import Data…