Cyclotomic polynomial: Difference between revisions
m
J: rephrase rou
m (fix name to match presentation here.) |
m (J: rephrase rou) |
||
Line 2,171:
NB. Fast Fourier Transform:
cube =: ($~ q:@#) :. ,
rou =:
floop =: {{for_r. i.#$x do. (y=.{."1 y) ] x=.(+/x) ,&,:"r (-/x)*y end.}}
fft =: ( ] floop&.cube rou@#) f. :. ifft
| |||