Set: Difference between revisions
→{{header|RPL}}: better versions of INTER and DIFFL, handling now repeated items
No edit summary |
(→{{header|RPL}}: better versions of INTER and DIFFL, handling now repeated items) |
||
Line 6,856:
"Azerty" #4 3.14 3 →LIST
{{works with|Halcyon Calc|4.2.7}}
We first need a command to remove an item for a list
≪ DUP2 1 + OVER SIZE SUB ROT ROT
IF DUP 1 == THEN DROP2 ELSE
1 SWAP 1 - SUB SWAP +
END
≫ '<span style="color:blue">POPL</span>' STO <span style="color:grey">@ ''( { a1 .. ak .. an } k → { a1 .. an } )''</span>
{| class="wikitable"
! RPL code
Line 6,861 ⟶ 6,867:
|-
|
≪ POS SIGN ≫ '
≪ → a b
Line 6,867 ⟶ 6,873:
b j GET '''IF''' a OVER POS '''THEN''' DROP '''ELSE''' + '''END'''
'''NEXT'''
≫ ≫ '
≪ → a b
LAST ROT SWAP <span style="color:blue">POPL</span>
ROT ROT + SWAP
'''ELSE''' DROP '''END'''
'''NEXT''' DROP
≫ ≫ ‘<span style="color:blue">INTER</span>’ STO
≪ → a b
LAST ROT SWAP <span style="color:blue">POPL</span>
ROT ROT + SWAP
'''ELSE''' DROP '''END'''
'''NEXT''' DROP
≫ ≫ ‘<span style="color:blue">DIFFL</span>’ STO
≪ → a b
Line 6,885 ⟶ 6,901:
'''IF''' b a j GET POS NOT '''THEN''' 1 SF a SIZE 'j' STO '''END'''
'''NEXT''' 1 FC?
≫ ≫ '
≫ '
|
Scan {B}...
... and add to {A} all {B} items not already in {A}
.▼
Put a copy of {B} in stack
▲ '''INTER''' ''( {A} {B} -- {A ∩ B} )''
Scan {A}
if {A} item in copy of {B}
.▼
remove it from copy of {B}
.▼
add it to result
'''DIFFL''' ''( {A} {B} -- {A ∖ B} )''▼
Scan {A}...▼
.▼
Put a copy of {B} in stack
'''INCL?''' ''( {A} {B} -- boolean )'' // true if {A} ⊆ {B}▼
if {A} item not in copy of {B}
remove it from copy of {B}
add it to result
Scan {A}...
... and break loop if an {A} item is not in {B}
return flag 1, set if loop has been broken
{A} = {B} <=> {A} ⊆ {B} and {B} ⊆ {A}
|}
|