Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Fast-Fourier-transform/SequenceL/fast-fourier-transform.sequencel
+++ b/Task/Fast-Fourier-transform/SequenceL/fast-fourier-transform.sequencel
@ -0,0 +1,18 @@
+import <Utilities/Complex.sl>;
+import <Utilities/Math.sl>;
+import <Utilities/Sequence.sl>;
+
+fft(x(1)) :=
+    let
+        n := size(x);
+
+        top := fft(x[range(1,n-1,2)]);
+        bottom := fft(x[range(2,n,2)]);
+
+        d[i] := makeComplex(cos(2.0*pi*i/n), -sin(2.0*pi*i/n)) foreach i within 0...(n / 2 - 1);
+
+        z := complexMultiply(d, bottom);
+    in
+        x when n <= 1
+    else
+        complexAdd(top,z) ++ complexSubtract(top,z);