Determine if a string has all unique characters: Difference between revisions
Determine if a string has all unique characters (view source)
Revision as of 22:53, 7 November 2019
, 4 years ago→{{header|Perl}}: works better with Unicode combining characters
m (added a related task.) |
SqrtNegInf (talk | contribs) (→{{header|Perl}}: works better with Unicode combining characters) |
||
Line 168:
binmode(STDOUT, ':utf8');
use List::AllUtils qw(uniq);
use Unicode::UCD 'charinfo';
Line 179 ⟶ 178:
'01234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ0X',
'Δ👍👨👍Δ',
'ΔδΔ̂ΔΛ',
) {
my @S;
printf qq{\n"$str" (length: %d) has }, my $len = length NFC $str;▼
if (@S != uniq @S ) {
say "duplicated characters:";
my %P;
Line 214 ⟶ 216:
"Δ👍👨👍Δ" (length: 5) has duplicated characters:
'Δ' GREEK CAPITAL LETTER DELTA (0x394) in positions: 1, 5
'👍' THUMBS UP SIGN (0x1f44d) in positions: 2, 4
"ΔδΔ̂ΔΛ" (length: 5) has duplicated characters:
'Δ' GREEK CAPITAL LETTER DELTA (0x394) in positions: 1, 4</pre>
=={{header|Perl 6}}==
| |||