Common sorted list: Difference between revisions
Content added Content deleted
imported>Maxima enthusiast No edit summary |
(add RPL) |
||
Line 939: | Line 939: | ||
<pre> |
<pre> |
||
common sorted list elements are: [1,3,4,5,7,8,9] |
common sorted list elements are: [1,3,4,5,7,8,9] |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|HP|48G}} |
|||
≪ ∑LIST SORT → nums |
|||
≪ <span style="color:red">{ }</span> |
|||
<span style="color:red">1</span> nums SIZE '''FOR''' j |
|||
nums j GET |
|||
'''IF''' DUP2 POS '''THEN''' DROP '''ELSE''' + '''END''' |
|||
'''NEXT''' |
|||
≫ ≫ '<span style="color:blue">COMMON</span>' STO |
|||
<span style="color:red">{ { 5 1 3 8 9 4 8 7 } { 3 5 9 8 4 } { 1 3 7 9 } }</span> <span style="color:blue">COMMON</span> |
|||
{{out}} |
|||
<pre> |
|||
1: { 1 3 4 5 7 8 9 } |
|||
</pre> |
</pre> |
||
Line 948: | Line 964: | ||
<pre>[1, 3, 4, 5, 7, 8, 9] |
<pre>[1, 3, 4, 5, 7, 8, 9] |
||
</pre> |
</pre> |
||
=={{header|V (Vlang)}}== |
=={{header|V (Vlang)}}== |
||
<syntaxhighlight lang="v (vlang)"> |
<syntaxhighlight lang="v (vlang)"> |