diff options
| author | David Schwartz <dms061@bucknell.edu> | 2021-05-30 23:35:14 -0400 |
|---|---|---|
| committer | David Schwartz <dms061@bucknell.edu> | 2021-05-30 23:35:14 -0400 |
| commit | f7817d4f601fb7f039b610162ce4cdf7a3c2297a (patch) | |
| tree | 7811179d2b5e47797813a5387589b5b35489e735 /challenge-114/abigail/perl/ch-2.pl | |
| parent | dc32df28d7c1a41694b16b97325407751bdb8a8b (diff) | |
| parent | aa519f5a1be2a316fe104086fc1eb52e3a819dcc (diff) | |
| download | perlweeklychallenge-club-f7817d4f601fb7f039b610162ce4cdf7a3c2297a.tar.gz perlweeklychallenge-club-f7817d4f601fb7f039b610162ce4cdf7a3c2297a.tar.bz2 perlweeklychallenge-club-f7817d4f601fb7f039b610162ce4cdf7a3c2297a.zip | |
Merge remote-tracking branch 'upstream/master' into challenge114
Diffstat (limited to 'challenge-114/abigail/perl/ch-2.pl')
| -rw-r--r-- | challenge-114/abigail/perl/ch-2.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-114/abigail/perl/ch-2.pl b/challenge-114/abigail/perl/ch-2.pl new file mode 100644 index 0000000000..61e2ddf1ea --- /dev/null +++ b/challenge-114/abigail/perl/ch-2.pl @@ -0,0 +1,27 @@ +#!/opt/perl/bin/perl + +use 5.032; + +use strict; +use warnings; +no warnings 'syntax'; + +use experimental 'signatures'; +use experimental 'lexical_subs'; + +# +# See ../README.md +# + +# +# Run as: perl ch-2.pl < input-file +# + +# +# For a description of the algorithm, see +# https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-114-2.html +# + +say oct sprintf ("0b0%b" => $_) =~ s {01(1*)(0*)$} {10$2$1}r while <>; + +__END__ |