Fast Fourier transform: Difference between revisions
Content added Content deleted
m (→{{header|APL}}: trimming spaces) |
(→{{header|Mathematica}} / {{header|Wolfram Language}}: simplification) |
||
Line 1,988: | Line 1,988: | ||
Here is a user-space definition for good measure. |
Here is a user-space definition for good measure. |
||
<lang Mathematica>fft[ |
<lang Mathematica>fft[{x_}] := {N@l} |
||
fft[l__] := |
fft[l__] := |
||
Join[#, #] &@fft@l[[1 ;; ;; 2]] + |
Join[#, #] &@fft@l[[1 ;; ;; 2]] + |