diff options
| author | Abigail <abigail@abigail.be> | 2021-06-26 20:00:58 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-06-26 20:00:58 +0200 |
| commit | 1e4f18c8552dec891946162593a2bd451f8ca30b (patch) | |
| tree | 5b3253d12e8bf8c380953f54effc277634be9055 | |
| parent | ed65f9e4f5f0e1200acedd279bcb6e52b4cecb2b (diff) | |
| download | perlweeklychallenge-club-1e4f18c8552dec891946162593a2bd451f8ca30b.tar.gz perlweeklychallenge-club-1e4f18c8552dec891946162593a2bd451f8ca30b.tar.bz2 perlweeklychallenge-club-1e4f18c8552dec891946162593a2bd451f8ca30b.zip | |
Swap clauses in pattern
| -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 <>; |