Common list elements: Difference between revisions
Added Arturo implementation
Not a robot (talk | contribs) (Add CLU) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 263:
tell sorter to sort(commonElements, 1, -1)
return commonElements</lang>
=={{header|Arturo}}==
<lang rebol>commonElements: function [subsets][
if zero? size subsets -> return []
if 1 = size subsets -> return first subsets
result: first subsets
loop slice subsets 1 dec size subsets 'subset [
result: intersection result subset
]
return result
]
print commonElements [
[2 5 1 3 8 9 4 6]
[3 5 6 2 9 8 4]
[1 3 7 6 9]
]</lang>
{{out}}
<pre>3 6 9</pre>
=={{header|AutoHotkey}}==
| |||