diff options
| -rw-r--r-- | challenge-118/abigail/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-118/abigail/perl/ch-1.pl b/challenge-118/abigail/perl/ch-1.pl index 99df6f0f65..51892d3f65 100644 --- a/challenge-118/abigail/perl/ch-1.pl +++ b/challenge-118/abigail/perl/ch-1.pl @@ -23,4 +23,4 @@ use experimental 'lexical_subs'; # using a pattern turns it into a one liner. # -say sprintf ("%b" => $_) =~ /^(([01])(?1)\g{2}|[01]?)$/ || 0 while <>; +say sprintf ("%b" => $_) =~ /^([01]?|([01])(?1)\g{2})$/ || 0 while <>; |