Common list elements: Difference between revisions
Content added Content deleted
m (→Excel LAMBDA: Simplified one expression) |
(Added AppleScript.) |
||
Line 17: | Line 17: | ||
<lang APL> ∩/ (2 5 1 3 8 9 4 6) (3 5 6 2 9 8 4) (1 3 7 9 6) |
<lang APL> ∩/ (2 5 1 3 8 9 4 6) (3 5 6 2 9 8 4) (1 3 7 9 6) |
||
3 9 6 </lang> |
3 9 6 </lang> |
||
=={{header|AppleScript}}== |
|||
<lang>use AppleScript version "2.4" -- OS X 10.10 (Yosemite) or later |
|||
use framework "Foundation" |
|||
on commonListElements(listOfNumberLists) |
|||
set mutableSet to current application's class "NSMutableSet"'s setWithArray:(beginning of listOfNumberLists) |
|||
repeat with i from 2 to (count listOfNumberLists) |
|||
tell mutableSet to intersectSet:(current application's class "NSSet"'s setWithArray:(item i of listOfNumberLists)) |
|||
end repeat |
|||
set sortDescriptor to current application's class "NSSortDescriptor"'s sortDescriptorWithKey:("self") ¬ |
|||
ascending:(true) |
|||
return (mutableSet's sortedArrayUsingDescriptors:({sortDescriptor})) as list |
|||
end commonListElements |
|||
commonListElements({{2, 5, 1, 3, 8, 9, 4, 6}, {3, 5, 6, 2, 9, 8, 4}, {1, 3, 7, 6, 9}})</lang> |
|||
{{output}} |
|||
<lang applescript>{3, 6, 9}</lang> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |