5 lines
115 B
Raku
5 lines
115 B
Raku
sub fft {
|
|
@_ == 1 ?? @_ !!
|
|
fft(@_[0,2...*]) «+«
|
|
fft(@_[1,3...*]) «*« map &cis, (0,-τ/@_...^-τ)
|
|
}
|