diff options
| -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 { |