September 2017 Update

Task/Factorial/AppleScript/factorial-3.applescript

@@ -1,17 +1,18 @@
+-- FACTORIAL -----------------------------------------------------------------
+
 -- factorial :: Int -> Int
 on factorial(x)
     script product
-        on lambda(a, b)
+        on |λ|(a, b)
             a * b
-        end lambda
+        end |λ|
     end script
 
-    foldl(product, 1, range(1, x))
+    foldl(product, 1, enumFromTo(1, x))
 end factorial
 
 
-
--- TEST
+-- TEST ----------------------------------------------------------------------
 on run
 
     factorial(11)
@@ -21,23 +22,11 @@ on run
 end run
 
 
--- GENERIC LIBRARY PRIMITIVES
+-- GENERIC FUNCTIONS ---------------------------------------------------------
 
--- foldl :: (a -> b -> a) -> a -> [b] -> a
-on foldl(f, startValue, xs)
-    tell mReturn(f)
-        set v to startValue
-        set lng to length of xs
-        repeat with i from 1 to lng
-            set v to lambda(v, item i of xs, i, xs)
-        end repeat
-        return v
-    end tell
-end foldl
-
--- range :: Int -> Int -> [Int]
-on range(m, n)
-    if n < m then
+-- enumFromTo :: Int -> Int -> [Int]
+on enumFromTo(m, n)
+    if m > n then
         set d to -1
     else
         set d to 1
@@ -47,8 +36,19 @@ on range(m, n)
         set end of lst to i
     end repeat
     return lst
-end range
+end enumFromTo
 
+-- foldl :: (a -> b -> a) -> a -> [b] -> a
+on foldl(f, startValue, xs)
+    tell mReturn(f)
+        set v to startValue
+        set lng to length of xs
+        repeat with i from 1 to lng
+            set v to |λ|(v, item i of xs, i, xs)
+        end repeat
+        return v
+    end tell
+end foldl
 
 -- Lift 2nd class handler function into 1st class script wrapper
 -- mReturn :: Handler -> Script
@@ -57,7 +57,7 @@ on mReturn(f)
         f
     else
         script
-            property lambda : f
+            property |λ| : f
         end script
     end if
 end mReturn