2 lines
106 B
Text
2 lines
106 B
Text
FFT(v)=my(t=-2*Pi*I/#v,tt);vector(#v,k,tt=t*(k-1);sum(n=0,#v-1,v[n+1]*exp(tt*n)));
|
|
FFT([1,1,1,1,0,0,0,0])
|