Unique characters: Difference between revisions
add PicoLisp
(add PicoLisp) |
|||
Line 258:
<pre>
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>
| |||