diff options
| author | juliodcs <julio.dcs@gmail.com> | 2020-10-17 01:04:48 +0200 |
|---|---|---|
| committer | juliodcs <julio.dcs@gmail.com> | 2020-10-17 01:04:48 +0200 |
| commit | d198f9c1f1477ca6a02f67dade78b846fff54d02 (patch) | |
| tree | b5570b1af562c3735017f44bf8a705ad321f7966 /challenge-082/juliodcs/perl | |
| parent | d04340bbc0ff6dc42a4fe2fc6cc849ff4bc53c66 (diff) | |
| download | perlweeklychallenge-club-d198f9c1f1477ca6a02f67dade78b846fff54d02.tar.gz perlweeklychallenge-club-d198f9c1f1477ca6a02f67dade78b846fff54d02.tar.bz2 perlweeklychallenge-club-d198f9c1f1477ca6a02f67dade78b846fff54d02.zip | |
Fix case when a=b
Diffstat (limited to 'challenge-082/juliodcs/perl')
| -rw-r--r-- | challenge-082/juliodcs/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-082/juliodcs/perl/ch-2.pl b/challenge-082/juliodcs/perl/ch-2.pl index 5e6398cfdf..e21df5eee7 100644 --- a/challenge-082/juliodcs/perl/ch-2.pl +++ b/challenge-082/juliodcs/perl/ch-2.pl @@ -4,9 +4,10 @@ use experimental 'signatures'; use feature 'say';
sub interleaved($a, $b, $c) {
+ ($a, $b) = ($b, $a) if length $a < length $b;
my ($is_a, $is_b) = (0, 0);
$c =~ s/(\Q$a\E)|\Q$b\E/ $1 and ++$is_a or ++$is_b; '' /e for 1 .. 2;
- $c eq q() && $is_a && $is_b
+ $c eq q() && ($is_a && $is_b || $a eq $b)
}
say interleaved(@ARGV) ? 1 : 0;
|