From fb785b17a1358135bf6d1a366c2c4df59b419091 Mon Sep 17 00:00:00 2001 From: holli-holzer Date: Wed, 18 Sep 2019 22:31:03 +0200 Subject: replaced `split` by `comb`. --- challenge-026/markus-holzer/perl6/ch-1.p6 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-026/markus-holzer/perl6/ch-1.p6 b/challenge-026/markus-holzer/perl6/ch-1.p6 index 70e6ceeaeb..ec85b011b2 100644 --- a/challenge-026/markus-holzer/perl6/ch-1.p6 +++ b/challenge-026/markus-holzer/perl6/ch-1.p6 @@ -25,7 +25,7 @@ multi sub infix:<\<∈>( Iterable $stones, Iterable $jewels ) returns Seq multi sub infix:<\<∈>( Str $stones, Str $jewels ) returns Str { - ( $stones.split( '', :skip-empty ) <∈ $jewels.split( '', :skip-empty ) ).join("") + ( $stones.comb <∈ $jewels.comb ).join("") } # And here we finally use it to solve the problem -- cgit