Enkel de dubbele overhouden

[trikke]

Ik heb een array (FM speak = list):

aaa 
ggg 
bbb 
ccc 
ddd 
ccc 
ddd 
fff 
ggg  
ggg 

En wil daaruit enkel de waarden filteren die meer dan 1 keer voorkomen, dus een omgekeerde RemoveDuplicates a. h. w.:

ggg  
ccc   
ddd     

Daar zit een custom in, in tegenstelling tot in mezelf.

[trikke]

Ik heb er eentje, maar die werkt niet als er maar 1 dubbele is...

 

// Parameters: theList, duplicateList;
Let ([
        v = LeftValues ( theList ; 1 ) ;
        vc = ValueCount ( theList ) ;
        dup = PatternCount ( ¶ & theList & ¶ ; ¶ & v ) > 1 ;
        addDup = dup and not Position ( ¶ & duplicateList & ¶ ; ¶ & v ; 1 ; 1 )
       ] ;
        Case (
                 vc = 0 ; duplicateList ;
                 ListDuplicates ( RightValues ( theList ; vc - 1 ) ; duplicateList & If ( addDup ; v ) )
                )
      )