Split a character string based on change of character: Difference between revisions

Content added Content deleted
(→‎{{header|Perl 6}}: Add some spaces)
m (→‎{{header|Perl 6}}: Remove stray parenthesis)
Line 229: Line 229:
{{out|Output with string fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃☄☄}}
{{out|Output with string fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃☄☄}}


(For those of you with crappy browsers, thats:
For those of you with crappy browsers, thats:
{f} x 3, {Zero-width non-breaking space} x 3, {n with combining over arrow} x 3, {Space} x 2
{f} x 3, {Zero-width non-breaking space} x 3, {n with combining over arrow} x 3, {Space} x 2
{Right-pointing double angle quotation mark} x 3, {Alef symbol} x 2 {Comet} x 2,
{Right-pointing double angle quotation mark} x 3, {Alef symbol} x 2 {Comet} x 2,
{Snowman} x 1, {Snowman with combining circumflex accent} x 1, {Snowman} x 1,
{Snowman} x 1, {Snowman with combining circumflex accent} x 1, {Snowman} x 1,
{Comet} x 2
{Comet} x 2


<pre>Orginal: fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃☄☄
<pre>Orginal: fffn⃗n⃗n⃗»»» ℵℵ☄☄☃☃̂☃☄☄