diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 03:00:08 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 03:00:08 -0600 |
| commit | 444ddf72157f648c8e6b04786e2700df6b8738b9 (patch) | |
| tree | b3e60a80d315597aef8d601fa646a6150a785b79 | |
| parent | 1bae947ae2493d1c018f189ae5bd31bdc04bac72 (diff) | |
| download | perlweeklychallenge-club-444ddf72157f648c8e6b04786e2700df6b8738b9.tar.gz perlweeklychallenge-club-444ddf72157f648c8e6b04786e2700df6b8738b9.tar.bz2 perlweeklychallenge-club-444ddf72157f648c8e6b04786e2700df6b8738b9.zip | |
Challenge 55 Solutions
| -rw-r--r-- | challenge-055/mark-anderson/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-055/mark-anderson/raku/ch-1.p6 b/challenge-055/mark-anderson/raku/ch-1.p6 index 529572cb23..0f2870dc48 100644 --- a/challenge-055/mark-anderson/raku/ch-1.p6 +++ b/challenge-055/mark-anderson/raku/ch-1.p6 @@ -1,4 +1,4 @@ -sub MAIN(Str $binary) { +sub MAIN(Str $binary where $binary ~~ /<[01]>/) { my @LR = (0 .. $binary.chars-1).combinations: 2; for (0 .. $binary.chars-1) -> $n { |