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