X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/dsp_files/fft_pattern_matching.dsp

diff --git a/dsp_files/fft_pattern_matching.dsp b/dsp_files/fft_pattern_matching.dsp
deleted file mode 100644
index 949f079..0000000
--- a/dsp_files/fft_pattern_matching.dsp
+++ /dev/null
@@ -1,31 +0,0 @@
-import ( "complex.lib" ) ;
-import ( "fft.lib.dsp" ) ;
-
-concats = case {
-	(1) => _, 1 : vectorize ;
-	(m) => concats(m - 1), ( _, 1 : vectorize) : #;
-};
-
-//subvect_even(n) = par(i, (n/2), (_, (i, 2 : *) : [])) : concats(n/2);
-//subvect_odd(n) = par(i, (n/2), (_, (i, 2 : * : _, 1 : +) : [])) : concats(n/2);
-
-evens = case {
-	(2) => [0] : vectorize(1);
-	(n) => evens(n-2) # ((_, (n-2) : []) : vectorize(1));
-};
-
-odds = case {
-	(2) => [1] : vectorize(1);
-	(n) => odds(n - 2) # ((_, (n-1) : []) : vectorize(1));
-};
-
-subvect_even(n) = _ <: evens(n);
-subvect_odd(n) = _ <: odds(n);
-
-eo(n) = _ <: subvect_even(n), subvect_odd(n);
-
-output = serialize, serialize : vectorize(1), vectorize(1) : #;
-
-//process = (1,2,3,4,5,6,7,8) : evens(8);
-
-process = _ : vectorize(8) : eo(8) : output;
\ No newline at end of file