Fast Fourier transform: Difference between revisions
m
→{{header|Common Lisp}}
Line 677:
a
(let* ((n/2 (/ n 2))
(
(⍵_n (exp
(⍵ #c(1.0d0 0.0d0))
(a0 (make-array n/2))
|