Fast Fourier transform: Difference between revisions

Content added Content deleted
(Added Wren)
m (Added GolfScript example)
Line 1,086: Line 1,086:
( 0.0000 +0.0000i)
( 0.0000 +0.0000i)
( 1.0000 +2.4142i)
( 1.0000 +2.4142i)
</pre>

=={{header|GolfScript}}==
<lang GolfScript>#Cooley-Tukey

{.,.({[\.2%fft\(;2%fft@-1?-1\?-2?:w;.,,{w\?}%[\]zip{{*}*}%]zip.{{+}*}%\{{-}*}%+}{;}if}:fft;

[1 1 1 1 0 0 0 0]fft n*
</lang>
{{out}}
<pre>
4+0i
1.0000000000000002-2.414213562373095i
0.0+0.0i
0.9999999999999996-0.4142135623730949i
0+0i
1.0000000000000002+0.41421356237309515i
0.0+0.0i
1.0+2.414213562373095i
</pre>
</pre>