Split a character string based on change of character: Difference between revisions
Split a character string based on change of character (view source)
Revision as of 00:22, 10 November 2019
, 4 years ago→{{header|Perl}}: Unicode
(Add Swift) |
SqrtNegInf (talk | contribs) (→{{header|Perl}}: Unicode) |
||
Line 1,284:
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use feature 'say';
use utf8;
binmode(STDOUT, ':utf8');
</lang>▼
for my $string (q[gHHH5YY++///\\], q[fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃🤔🇺🇸🤦♂️👨👩👧👦]) {
my @S;
my $last = '';
while ($string =~ /(\X)/g) {
if ($last eq $1) { $S[-1] .= $1 } else { push @S, $1 }
$last = $1;
}
say "Orginal: $string\n Split: 「" . join('」 「', @S) . "」\n";
▲}</lang>
{{out}}
<pre>Orginal: gHHH5YY++///\
Split: 「g」, 「HHH」, 「5」, 「YY」, 「++」, 「///」, 「\」
Orginal: fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃🤔🇺🇸🤦♂️👨👩👧👦
Split: 「fff」, 「」, 「n⃗n⃗n⃗」, 「»»»」, 「 」, 「ℵℵ」, 「☄☄」, 「☃」, 「☃̂」, 「☃」, 「🤔」, 「🇺🇸」, 「🤦♂️」, 「👨👩👧👦」</pre>
=={{header|Perl 6}}==
| |||