diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-04-06 15:19:01 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-04-06 15:19:01 +0200 |
| commit | 9ebd18bb5cf6b8c7659bebb2e15d763977157394 (patch) | |
| tree | a4f5e989b89890eef0d20252b1510855c0075b63 | |
| parent | 191bcbdf1f87aac1f3aad9e4ea0ff66af3ee6e97 (diff) | |
| download | perlweeklychallenge-club-9ebd18bb5cf6b8c7659bebb2e15d763977157394.tar.gz perlweeklychallenge-club-9ebd18bb5cf6b8c7659bebb2e15d763977157394.tar.bz2 perlweeklychallenge-club-9ebd18bb5cf6b8c7659bebb2e15d763977157394.zip | |
Removed extra debug printing.
| -rw-r--r-- | challenge-055/luca-ferrari/raku/ch-1.p6 | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/challenge-055/luca-ferrari/raku/ch-1.p6 b/challenge-055/luca-ferrari/raku/ch-1.p6 index 82ea461143..8a63de97a8 100644 --- a/challenge-055/luca-ferrari/raku/ch-1.p6 +++ b/challenge-055/luca-ferrari/raku/ch-1.p6 @@ -31,8 +31,6 @@ sub MAIN( Int:D $number where { $number.chars > 1 && $number ~~ / ^ <[01]>+ $ / my @src = $number.comb; my $N = @src.elems; - say @src; - say $N; my $wanted = $N - 1; say "Searching for at least $wanted ones..."; |