Determine if a string is collapsible: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, needed new-line) |
||
Line 310: | Line 310: | ||
for (@lines) { |
for (@lines) { |
||
my $squish = s/(.)\1+/$1/gr; |
my $squish = s/(.)\1+/$1/gr; |
||
printf "\nLength: %2d <<<%s>>>\nCollapsible: %s\nLength: %2d <<<%s>>>", |
printf "\nLength: %2d <<<%s>>>\nCollapsible: %s\nLength: %2d <<<%s>>>\n", |
||
length($_), $_, $_ ne $squish ? 'True' : 'False', length($squish), $squish |
length($_), $_, $_ ne $squish ? 'True' : 'False', length($squish), $squish |
||
}</lang> |
}</lang> |