Determine if a string has all unique characters: Difference between revisions
Determine if a string has all unique characters (view source)
Revision as of 01:50, 30 October 2019
, 4 years ago→{{header|Perl 6}}: Add capability to detect multiple characters repeated multiple times and demonstrate
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: grammar fix) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add capability to detect multiple characters repeated multiple times and demonstrate) |
||
Line 37:
=={{header|Perl 6}}==
{{works with|Rakudo|2019.07.1}}
Perl 6 works with unicode natively and handles combining characters and multi-byte emoji correctly. In the last string, notice the the length is correctly shown as
<lang perl6> -> $str {
print "\n{$str.perl} (length: {$str.chars}), has ";
if my $match = $str.match( / (.).*$0 /, :
my %m;
%m{.values.Str}.append(flat 1 + .from, .pos) for $match.list;
say "duplicated characters:";
say "'{.
" in positions: {.value.sort.squish.join: ', '
} else {
say "no duplicated characters."
}
} for
'',
'.',
Line 54 ⟶ 56:
'XYZ ZYX',
'1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ',
'01234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ0X',
'🦋🙂👨👩👧👦🙄ΔΔ̂ 🦋Δ👍👨👩👧👦'</lang>
{{out}}
<pre>"" (length: 0), has no duplicated characters.
Line 70 ⟶ 73:
'0' (DIGIT ZERO; hex ordinal: 0x30) in positions: 10, 25
"
'
'
'Δ' (GREEK CAPITAL LETTER DELTA; hex ordinal: 0x394) in positions: 5, 8</pre>▼
"🦋🙂👨👩👧👦🙄ΔΔ̂ 🦋Δ👍👨👩👧👦" (length: 11), has duplicated characters:
'🦋' (BUTTERFLY; hex ordinal: 0x1F98B) in positions: 1, 8
'👨👩👧👦' (MAN ZERO WIDTH JOINER WOMAN ZERO WIDTH JOINER GIRL ZERO WIDTH JOINER BOY; hex ordinal: 0x1F468 0x200D 0x1F469 0x200D 0x1F467 0x200D 0x1F466) in positions: 3, 11
</pre>
=={{header|REXX}}==
| |||