Fast Fourier transform: Difference between revisions
m
→{{header|J}}
m (→{{header|J}}) |
|||
Line 10:
floop =: 4 : 'for_r. i.#$x do. (y=.{."1 y) ] x=.(+/x) ,&,:"r (-/x)*y end.'
fft =: ( ] floop&.cube rou@#) :. ifft
ifft =: (# %~ ] floop&.cube +@rou@#) :. fft</lang>
Example:
| |||