diff options
| author | holli-holzer <holli.holzer@gmail.com> | 2019-09-18 22:31:03 +0200 |
|---|---|---|
| committer | holli-holzer <holli.holzer@gmail.com> | 2019-09-18 22:31:03 +0200 |
| commit | fb785b17a1358135bf6d1a366c2c4df59b419091 (patch) | |
| tree | 770c5f33c5255527be86fffd8c9d7ab81ac6c13c /challenge-026 | |
| parent | 6c77e048169c579bcf26bea7d917366db388c2e8 (diff) | |
| download | perlweeklychallenge-club-fb785b17a1358135bf6d1a366c2c4df59b419091.tar.gz perlweeklychallenge-club-fb785b17a1358135bf6d1a366c2c4df59b419091.tar.bz2 perlweeklychallenge-club-fb785b17a1358135bf6d1a366c2c4df59b419091.zip | |
replaced `split` by `comb`.
Diffstat (limited to 'challenge-026')
| -rw-r--r-- | challenge-026/markus-holzer/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |