September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Arithmetic-geometric-mean/Futhark/arithmetic-geometric-mean.futhark
+++ b/Task/Arithmetic-geometric-mean/Futhark/arithmetic-geometric-mean.futhark
@ -1,6 +1,11 @@
+import "futlib/math"
+
 fun agm(a: f64, g: f64): f64 =
  let eps = 1.0E-16
-  loop ((a,g)) = while abs(a-g) > eps do
+  loop ((a,g)) = while f64.abs(a-g) > eps do
    ((a+g) / 2.0,
-     sqrt64 (a*g))
+     f64.sqrt (a*g))
  in a
+
+fun main(x: f64, y: f64): f64 =
+  agm(x,y)