diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-10-14 02:47:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-14 02:47:17 +0100 |
| commit | dd23c77b3af620035d1bed1b3efc108bc65f1fde (patch) | |
| tree | 510d4bb92e5d665695d777b237b59eae494a5325 | |
| parent | 5138746d33e905dcd074919a6f78a5620f67eb5b (diff) | |
| parent | 3151981db40b1603077cb9d2eb356902b10d76f1 (diff) | |
| download | perlweeklychallenge-club-dd23c77b3af620035d1bed1b3efc108bc65f1fde.tar.gz perlweeklychallenge-club-dd23c77b3af620035d1bed1b3efc108bc65f1fde.tar.bz2 perlweeklychallenge-club-dd23c77b3af620035d1bed1b3efc108bc65f1fde.zip | |
Merge pull request #2512 from holli-holzer/master
#2 both ways
| -rw-r--r-- | challenge-082/markus-holzer/raku/ch-2.raku | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-082/markus-holzer/raku/ch-2.raku b/challenge-082/markus-holzer/raku/ch-2.raku index 56d47ff51d..cc6549050e 100644 --- a/challenge-082/markus-holzer/raku/ch-2.raku +++ b/challenge-082/markus-holzer/raku/ch-2.raku @@ -1,3 +1,6 @@ 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 +sub interleavable( Str $a, Str $b, Str $c ) { + so grep { $c eq [~] $a.substr( 0, $^i ), $b, $a.substr( $^i ) }, ^$a.chars } + +say +( interleavable( $A, $B, $C ) || interleavable( $B, $A, $C ) )
\ No newline at end of file |