Unique characters: Difference between revisions
Content added Content deleted
(Added AppleScript.) |
(added Perl programming solution) |
||
Line 97: | Line 97: | ||
['1', '5', '6', 'b', 'g', 's', 't', 'z'] |
['1', '5', '6', 'b', 'g', 's', 't', 'z'] |
||
1.010 μs (14 allocations: 1.05 KiB) |
1.010 μs (14 allocations: 1.05 KiB) |
||
</pre> |
|||
=={{header|Perl}}== |
|||
{{trans|Raku}} |
|||
<lang perl>// 20210506 Perl programming solution |
|||
use strict; |
|||
use warnings; |
|||
use utf8; |
|||
use Unicode::Collate 'sort'; |
|||
my %seen; |
|||
binmode(STDOUT, ':encoding(utf8)'); |
|||
map { s/(\X)/$seen{$1}++/egr } |
|||
"133252abcdeeffd", "a6789798st", "yxcdfgxcyz", "AАΑSäaoö٥🤔👨👩👧👧"; |
|||
my $uca = Unicode::Collate->new(); |
|||
print $uca->sort ( grep { $seen{$_} == 1 } keys %seen )</lang> |
|||
{{out}} |
|||
<pre> |
|||
👨👩👧👧🤔15٥6AäbgoösStzΑА |
|||
</pre> |
</pre> |
||