From 444ddf72157f648c8e6b04786e2700df6b8738b9 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 7 Apr 2020 03:00:08 -0600
Subject: Challenge 55 Solutions

---
 challenge-055/mark-anderson/raku/ch-1.p6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {
-- 
cgit