June 2018 Update

Task/Arithmetic-geometric-mean/AppleScript/arithmetic-geometric-mean.applescript

@@ -1,46 +1,46 @@
+-- ARITHMETIC GEOMETRIC MEAN -------------------------------------------------
+
 property tolerance : 1.0E-5
 
 -- agm :: Num a => a -> a -> a
 on agm(a, g)
     script withinTolerance
-        on lambda(m)
+        on |λ|(m)
             tell m to ((its an) - (its gn)) < tolerance
-        end lambda
+        end |λ|
     end script
 
     script nextRefinement
-        on lambda(m)
+        on |λ|(m)
             tell m
                 set {an, gn} to {its an, its gn}
                 {an:(an + gn) / 2, gn:(an * gn) ^ 0.5}
             end tell
-        end lambda
+        end |λ|
     end script
 
     an of |until|(withinTolerance, ¬
         nextRefinement, {an:(a + g) / 2, gn:(a * g) ^ 0.5})
 end agm
 
-
--- TEST
+-- TEST ----------------------------------------------------------------------
 on run
 
     agm(1, 1 / (2 ^ 0.5))
 
+    --> 0.847213084835
+
 end run
 
-
-
--- GENERIC FUNCTIONS
+-- GENERIC FUNCTIONS ---------------------------------------------------------
 
 -- until :: (a -> Bool) -> (a -> a) -> a -> a
 on |until|(p, f, x)
     set mp to mReturn(p)
     set v to x
-
     tell mReturn(f)
-        repeat until mp's lambda(v)
-            set v to lambda(v)
+        repeat until mp's |λ|(v)
+            set v to |λ|(v)
         end repeat
     end tell
     return v
@@ -53,7 +53,7 @@ on mReturn(f)
         f
     else
         script
-            property lambda : f
+            property |λ| : f
         end script
     end if
 end mReturn