From 034b5a255d2c61d1adfdbd0158732bf30a9418f9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 9 Aug 2012 08:36:26 -0700 Subject: [PATCH] math.transforms.fft: using 2map-index to simplify. --- extra/math/transforms/fft/fft.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/extra/math/transforms/fft/fft.factor b/extra/math/transforms/fft/fft.factor index 9cce31d92f..2835585910 100644 --- a/extra/math/transforms/fft/fft.factor +++ b/extra/math/transforms/fft/fft.factor @@ -18,14 +18,12 @@ IN: math.transforms.fft seq length :> N N 1 = [ seq ] [ inverse? 1 -1 ? 2pi * i* N / :> O - N 0 :> X N 2/ :> M seq even-indices inverse? (fft) seq odd-indices inverse? (fft) - [ [ [ O * e^ * + inverse? [ 2 / ] when ] [ X set-nth-unsafe ] bi ] 2each-index ] - [ [ [ O * e^ * - inverse? [ 2 / ] when ] [ M + X set-nth-unsafe ] bi ] 2each-index ] - 2bi - X + [ [ O * e^ * + inverse? [ 2 / ] when ] 2map-index ] + [ [ O * e^ * - inverse? [ 2 / ] when ] 2map-index ] + 2bi append ] if ; inline recursive PRIVATE>