hessammehr

(import '[edu.emory.mathcs.jtransforms.fft DoubleFFT_1D])

(defn fft [data] (let [a-data (into-array Double/TYPE data)                                                                                      
                      fftfun (DoubleFFT_1D. (count data))                                                                                       
                      dummy (.realForward fftfun a-data)] a-data))

;; Example: Constant signal
(fft (take 128 (repeat 1.0)))

;; [optional] view the result as vector