Unique characters in each string: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|HP|48G}}

≪ → word char

≪ 0

1 word SIZE '''FOR''' j

word j DUP SUB char == +

'''NEXT'''

≫ ≫ '<span style="color:blue">OCCHAR</span>' STO

≪ "" → words char

≪ { } words 1 GET

1 OVER SIZE '''FOR''' j

DUP j DUP SUB 'char' STO

words 1 ≪ char <span style="color:blue">OCCHAR</span> ≫ DOLIST

'''IF''' ΠLIST 1 == '''THEN''' SWAP char + SWAP '''END'''

'''NEXT''' DROP SORT

≫ ≫ '<span style="color:blue">UNICHARS</span>' STO

{ "1a3c52debeffd" "2b6178c97a938stf" "3ycxdb1fgxa2yz" } <span style="color:blue">UNICHARS</span>

{{out}}

<pre>

1: { "1" "2" "3" "a" "b" "c" }