Unique characters: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
|||
Line 1,389: | Line 1,389: | ||
Found 8 unique characters |
Found 8 unique characters |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ DUP SIZE → string length |
|||
≪ 1 length '''FOR''' n |
|||
string n DUP SUB |
|||
'''NEXT''' |
|||
length 1 '''FOR''' n |
|||
1 n 1 - START |
|||
'''IF''' DUP2 ≥ '''THEN''' SWAP '''END''' |
|||
n ROLLD |
|||
'''NEXT''' |
|||
n ROLLD |
|||
-1 '''STEP''' |
|||
2 length '''START''' + '''NEXT''' |
|||
≫ ≫ |
|||
‘SORTS’ STO |
|||
≪ DUP 1 DUP SUB → str char1 |
|||
≪ str SIZE |
|||
'''IF''' DUP 1 > |
|||
'''THEN''' |
|||
DROP 1 |
|||
'''WHILE''' str OVER 1 + DUP SUB char1 == '''REPEAT''' 1 + '''END''' |
|||
'''END''' |
|||
char1 |
|||
≫ ≫ |
|||
‘OCHST’ STO |
|||
≪ "" 1 3 PICK SIZE '''FOR''' j |
|||
OVER j GET + |
|||
'''NEXT''' |
|||
SWAP DROP |
|||
SORTS "" SWAP 1 |
|||
'''WHILE''' OVER SIZE OVER ≥ '''REPEAT''' |
|||
DUP2 OVER SIZE SUB OCHST |
|||
'''IF''' OVER 1 == |
|||
'''THEN''' 5 ROLL SWAP + 4 ROLLD |
|||
'''ELSE''' DROP |
|||
'''END''' |
|||
+ |
|||
'''END''' |
|||
DROP2 |
|||
≫ |
|||
‘UNCHR’ STO |
|||
{"133252abcdeeffd", "a6789798st", "yxcdfgxcyz"} UNCHR |
|||
{{works with|Halcyon Calc|4.2.7}} |
|||
{{out}} |
|||
<pre> |
|||
1: "156bgstz" |
|||
</pre> |
</pre> |
||