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/Arithmetic-geometric-mean/Futhark/arithmetic-geometric-mean.futhark
+++ b/Task/Arithmetic-geometric-mean/Futhark/arithmetic-geometric-mean.futhark
@ -0,0 +1,6 @@
+fun agm(a: f64, g: f64): f64 =
+  let eps = 1.0E-16
+  loop ((a,g)) = while abs(a-g) > eps do
+    ((a+g) / 2.0,
+     sqrt64 (a*g))
+  in a