Unique characters: Difference between revisions
Content added Content deleted
(add PicoLisp) |
|||
Line 258: | Line 258: | ||
<pre> |
<pre> |
||
found 8 unique characters: 156bgstz |
found 8 unique characters: 156bgstz |
||
</pre> |
|||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de uni (Lst |
|||
(let R NIL |
|||
(mapc |
|||
'((L) |
|||
(mapc |
|||
'((L) (accu 'R L 1)) L ) ) |
|||
(mapcar chop Lst) ) |
|||
(mapcar |
|||
car |
|||
(by |
|||
car |
|||
sort |
|||
(filter '((L) (=1 (cdr L))) R) ) ) ) ) |
|||
(println |
|||
(uni |
|||
(quote |
|||
"133252abcdeeffd" |
|||
"a6789798st" |
|||
"yxcdfgxcyz" ) ) )</lang> |
|||
{{out}} |
|||
<pre> |
|||
("1" "5" "6" "b" "g" "s" "t" "z") |
|||
</pre> |
</pre> |
||