Determine if a string is squeezable: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: slightly less verbose) |
||
Line 260: | Line 260: | ||
<lang perl6>map { |
<lang perl6>map { |
||
my $squeeze = $^phrase; |
my $squeeze = $^phrase; |
||
sink $^reg; |
|||
$squeeze ~~ s:g/($reg)$0+/$0/; |
$squeeze ~~ s:g/($reg)$0+/$0/; |
||
printf "\nOriginal length: %d <<<%s>>>\nSqueezable on \"%s\": %s\nSqueezed length: %d <<<%s>>>\n", |
printf "\nOriginal length: %d <<<%s>>>\nSqueezable on \"%s\": %s\nSqueezed length: %d <<<%s>>>\n", |