diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-12 22:00:11 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-12 22:00:11 +0200 |
| commit | 6b828aefdf389ce21b0f58586e859bec654d5cd1 (patch) | |
| tree | 37eea874a5b14fc571b9257f01eb01ba3e768cd4 | |
| parent | 2369a61c4807f2f758f6df0c64a9faa9bc8b233d (diff) | |
| download | perlweeklychallenge-club-6b828aefdf389ce21b0f58586e859bec654d5cd1.tar.gz perlweeklychallenge-club-6b828aefdf389ce21b0f58586e859bec654d5cd1.tar.bz2 perlweeklychallenge-club-6b828aefdf389ce21b0f58586e859bec654d5cd1.zip | |
initial
| -rw-r--r-- | challenge-082/markus-holzer/raku/ch-2.raku | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-082/markus-holzer/raku/ch-2.raku b/challenge-082/markus-holzer/raku/ch-2.raku index e69de29bb2..56d47ff51d 100644 --- a/challenge-082/markus-holzer/raku/ch-2.raku +++ b/challenge-082/markus-holzer/raku/ch-2.raku @@ -0,0 +1,3 @@ +unit sub MAIN( Str $A, Str $B, Str $C where $C.chars == $A.chars + $B.chars ); + +say +so grep { $C eq [~] $A.substr( 0, $^i ), $B, $A.substr( $^i ) }, ^$A.chars
\ No newline at end of file |