Optimize it a little

2 files changed, 6 insertions, 6 deletions

diff --git a/challenge-082/juliodcs/perl/ch-2.pl b/challenge-082/juliodcs/perl/ch-2.pl
index e21df5eee7..a3736cde3f 100644
--- a/challenge-082/juliodcs/perl/ch-2.pl
+++ b/challenge-082/juliodcs/perl/ch-2.pl
@@ -5,9 +5,9 @@ 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 || $a eq $b)

+    my $found = 0

+    $c =~ s/\Q$a\E|\Q$b\E/ $found++; '' /e for 1 .. 2;

+    $c eq q() && ($found == 2 || $a eq $b)

 }

 

 say interleaved(@ARGV) ? 1 : 0;

diff --git a/challenge-082/juliodcs/raku/ch-2.raku b/challenge-082/juliodcs/raku/ch-2.raku
index ad7c3388f9..2d15b4937e 100644
--- a/challenge-082/juliodcs/raku/ch-2.raku
+++ b/challenge-082/juliodcs/raku/ch-2.raku
@@ -2,9 +2,9 @@
 

 sub interleaved($a is rw, $b is rw, $c is rw) {

     ($a, $b) .= reverse if $a.chars < $b.chars;

-    my ($has-a, $has-b) = False, False;

-    $c ~~ s/ $a {$has-a = True} | $b {$has-b = True} // for ^2;

-    +($c eq ｢｣ && ($has-a && $has-b || $a eq $b))

+    my $found = 0;

+    $c ~~ s/ $a | $b /{ $found++; ｢｣ }/ for ^2;

+    +($c eq ｢｣ && ($found == 2 || $a eq $b))

 }

 

 say interleaved |@*ARGS;