Fast Fourier transform: Difference between revisions
Content deleted Content added
→{{header|Perl 6}}: shorten purely functional version a bit |
m →{{header|Perl 6}}: minor beautification |
||
Line 2,009: | Line 2,009: | ||
<lang perl6>sub fft { |
<lang perl6>sub fft { |
||
@_==1 ?? @_ !! |
@_ == 1 ?? @_ !! |
||
fft( @_[0, 2 ... *] ) «+» |
fft( @_[0, 2 ... *] ) «+» |
||
(<1 -1> X* (fft( @_[1,3...*] ) Z* map &cis, (0,-τ/@_...*))) |
(<1 -1> X* (fft( @_[1,3...*] ) Z* map &cis, (0,-τ/@_...*))) |