Unique characters: Difference between revisions
added Perl programming solution
(Added AppleScript.) |
(added Perl programming solution) |
||
Line 97:
['1', '5', '6', 'b', 'g', 's', 't', 'z']
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>
| |||