Determine if a string is squeezable: Difference between revisions
Determine if a string is squeezable (view source)
Revision as of 18:21, 22 November 2019
, 4 years ago→{{header|Perl 6}}: slightly less verbose
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: slightly less verbose) |
||
Line 260:
<lang perl6>map {
my $squeeze = $^phrase;
$squeeze ~~ s:g/($reg)$0+/$0/;
printf "\nOriginal length: %d <<<%s>>>\nSqueezable on \"%s\": %s\nSqueezed length: %d <<<%s>>>\n",
|