September 2017 Update

Task/Remove-duplicate-elements/AppleScript/remove-duplicate-elements-2.applescript

@@ -1,22 +1,22 @@
--- CASE INSENSITIVE VERSION
+-- CASE-INSENSITIVE UNIQUE ELEMENTS ------------------------------------------
 
 -- nub :: [a] -> [a]
 on nub(xs)
     -- Eq :: a -> a -> Bool
     script Eq
-        on lambda(x, y)
+        on |λ|(x, y)
             ignoring case
                 x = y
             end ignoring
-        end lambda
+        end |λ|
     end script
 
     nubBy(Eq, xs)
 end nub
 
 
--- TEST
-on run {}
+-- TEST ----------------------------------------------------------------------
+on run
     {intercalate(space, ¬
         nub(splitOn(space, "4 3 2 8 0 1 9 5 1 7 6 3 9 9 4 2 1 5 3 2"))), ¬
         intercalate("", ¬
@@ -26,9 +26,40 @@ on run {}
 end run
 
 
----------------------------------------------------------------------------
+-- GENERIC FUNCTIONS ---------------------------------------------------------
 
--- GENERIC FUNCTIONS
+-- filter :: (a -> Bool) -> [a] -> [a]
+on filter(f, xs)
+    tell mReturn(f)
+        set lst to {}
+        set lng to length of xs
+        repeat with i from 1 to lng
+            set v to item i of xs
+            if |λ|(v, i, xs) then set end of lst to v
+        end repeat
+        return lst
+    end tell
+end filter
+
+-- intercalate :: Text -> [Text] -> Text
+on intercalate(strText, lstText)
+    set {dlm, my text item delimiters} to {my text item delimiters, strText}
+    set strJoined to lstText as text
+    set my text item delimiters to dlm
+    return strJoined
+end intercalate
+
+-- Lift 2nd class handler function into 1st class script wrapper
+-- mReturn :: Handler -> Script
+on mReturn(f)
+    if class of f is script then
+        f
+    else
+        script
+            property |λ| : f
+        end script
+    end if
+end mReturn
 
 -- nubBy :: (a -> a -> Bool) -> [a] -> [a]
 on nubBy(fnEq, xxs)
@@ -41,9 +72,9 @@ on nubBy(fnEq, xxs)
 
         -- notEq :: a -> Bool
         script notEq
-            on lambda(a)
-                not (p's lambda(a, x))
-            end lambda
+            on |λ|(a)
+                not (p's |λ|(a, x))
+            end |λ|
         end script
 
         {x} & nubBy(fnEq, filter(notEq, xs))
@@ -52,33 +83,6 @@ on nubBy(fnEq, xxs)
     end if
 end nubBy
 
--- filter :: (a -> Bool) -> [a] -> [a]
-on filter(f, xs)
-    tell mReturn(f)
-        set lst to {}
-        set lng to length of xs
-        repeat with i from 1 to lng
-            set v to item i of xs
-            if lambda(v, i, xs) then set end of lst to v
-        end repeat
-        return lst
-    end tell
-end filter
-
--- Lift 2nd class handler function into 1st class script wrapper
--- mReturn :: Handler -> Script
-on mReturn(f)
-    if class of f is script then
-        f
-    else
-        script
-            property lambda : f
-        end script
-    end if
-end mReturn
-
--- FOR THE TEST
-
 -- splitOn :: Text -> Text -> [Text]
 on splitOn(strDelim, strMain)
     set {dlm, my text item delimiters} to {my text item delimiters, strDelim}
@@ -86,11 +90,3 @@ on splitOn(strDelim, strMain)
     set my text item delimiters to dlm
     return lstParts
 end splitOn
-
--- intercalate :: Text -> [Text] -> Text
-on intercalate(strText, lstText)
-    set {dlm, my text item delimiters} to {my text item delimiters, strText}
-    set strJoined to lstText as text
-    set my text item delimiters to dlm
-    return strJoined
-end intercalate