diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-02-08 14:50:10 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-02-08 14:50:10 +0100 |
| commit | 0664b30ef62a48fa5d2106d641eb33cb3b5c717f (patch) | |
| tree | d3cd05736ad53d66ced154ddb01253c0f097edde | |
| parent | 8d64a6ffe62342407c756f086b98244e43d4b92d (diff) | |
| download | perlweeklychallenge-club-0664b30ef62a48fa5d2106d641eb33cb3b5c717f.tar.gz perlweeklychallenge-club-0664b30ef62a48fa5d2106d641eb33cb3b5c717f.tar.bz2 perlweeklychallenge-club-0664b30ef62a48fa5d2106d641eb33cb3b5c717f.zip | |
Remove debug output
| -rw-r--r-- | challenge-099/luca-ferrari/raku/ch-1.p6 | 2 | ||||
| -rw-r--r-- | challenge-099/luca-ferrari/raku/ch-2.p6 | 3 |
2 files changed, 0 insertions, 5 deletions
diff --git a/challenge-099/luca-ferrari/raku/ch-1.p6 b/challenge-099/luca-ferrari/raku/ch-1.p6 index 00fa7c8c0e..570a3b0c66 100644 --- a/challenge-099/luca-ferrari/raku/ch-1.p6 +++ b/challenge-099/luca-ferrari/raku/ch-1.p6 @@ -1,8 +1,6 @@ #!raku sub MAIN( Str $S, Str $P ) { - say "String [$S] with pattern [$P]"; - # substitute every ? to match a single char # and every * to match a stream of chars # and add anchors diff --git a/challenge-099/luca-ferrari/raku/ch-2.p6 b/challenge-099/luca-ferrari/raku/ch-2.p6 index 386d2fdfd4..a25a297500 100644 --- a/challenge-099/luca-ferrari/raku/ch-2.p6 +++ b/challenge-099/luca-ferrari/raku/ch-2.p6 @@ -1,10 +1,7 @@ #!raku sub MAIN( Str $S, Str $T ) { - say "String [$S] with pattern [$T]"; - my $counter = 0; - my $regexp = $T.comb.join( '.*' ); # overlapping search |