diff --git a/unmaintained/math/transforms/fft/authors.txt b/unmaintained/math/transforms/fft/authors.txt deleted file mode 100644 index 3b4a4af215..0000000000 --- a/unmaintained/math/transforms/fft/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Hans Schmid diff --git a/unmaintained/math/transforms/fft/fft-docs.factor b/unmaintained/math/transforms/fft/fft-docs.factor deleted file mode 100644 index 93d72f39a4..0000000000 --- a/unmaintained/math/transforms/fft/fft-docs.factor +++ /dev/null @@ -1,7 +0,0 @@ -USING: help.markup help.syntax sequences ; -IN: math.transforms.fft - -HELP: fft -{ $values { "seq" sequence } { "seq'" sequence } } -{ $description "Fast Fourier transform function." } ; - diff --git a/unmaintained/math/transforms/fft/fft.factor b/unmaintained/math/transforms/fft/fft.factor deleted file mode 100644 index 440243a968..0000000000 --- a/unmaintained/math/transforms/fft/fft.factor +++ /dev/null @@ -1,38 +0,0 @@ -! Copyright (c) 2007 Hans Schmid. -! See http://factorcode.org/license.txt for BSD license. -USING: columns grouping kernel math math.constants math.functions math.vectors - sequences ; -IN: math.transforms.fft - -! Fast Fourier Transform - - - -DEFER: fft - -: two ( seq -- seq' ) - fft 2 v/n dup append ; - - ; -: odd ( seq -- seq' ) 2 group 1 ; - -: (fft) ( seq -- seq' ) - [ odd two twiddle ] [ even two ] bi v+ ; - -PRIVATE> - -: fft ( seq -- seq' ) - dup length 1 = [ (fft) ] unless ; - diff --git a/unmaintained/math/transforms/fft/summary.txt b/unmaintained/math/transforms/fft/summary.txt deleted file mode 100644 index 3d71dfa49a..0000000000 --- a/unmaintained/math/transforms/fft/summary.txt +++ /dev/null @@ -1 +0,0 @@ -Fast fourier transform