Fast Fourier transform: Difference between revisions
→{{header|Perl}}: better output format
(→{{header|Perl 6}}: adding perl translation) |
(→{{header|Perl}}: better output format) |
||
Line 851:
(map { $evn[$_] - $odd[$_] } 0 .. @evn-1 );
}
my @seq = 0 .. 15;
my $cycles = 3;
my @wave = map { sin( $_ * 2*pi/ @seq * $cycles ) } @seq;
print "wave: ", join " ", map { sprintf
print "\n";
print "fft: ", join " ", map { sprintf "%7.3f", abs $_ } fft(@wave);</lang>
{{out}}
<pre>wave: 0.000 0.924 0.707 -0.383 -1.000 -0.383 0.707 0.924 0.000 -0.924 -0.707 0.383 1.000 0.383 -0.707 -0.924
fft: 0.000 0.000 0.000 8.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 8.000 0.000 0.000</pre>
=={{header|Perl 6}}==
| |||