diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-05-02 18:30:19 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-05-02 18:30:19 +0100 |
| commit | dd201355bb0295d959b4cd8129293103bc828d37 (patch) | |
| tree | 500c1e253587f80d2ab6b4fecaf473d673562d65 | |
| parent | 1daa4a35462e2bead1845d0d74ab62a96ed6c349 (diff) | |
| parent | 7c1348bac2b8cfe68b8ffa2e01dee5aae8506ab9 (diff) | |
| download | perlweeklychallenge-club-dd201355bb0295d959b4cd8129293103bc828d37.tar.gz perlweeklychallenge-club-dd201355bb0295d959b4cd8129293103bc828d37.tar.bz2 perlweeklychallenge-club-dd201355bb0295d959b4cd8129293103bc828d37.zip | |
Merge pull request #115 from k-mx/master
ch-2.pl
| -rw-r--r-- | challenge-006/maxim-kolodyazhny/perl5/ch-1.pl | 6 | ||||
| -rw-r--r-- | challenge-006/maxim-kolodyazhny/perl5/ch-2.pl | 10 |
2 files changed, 13 insertions, 3 deletions
diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl index 5ac290fdd0..4ccfcc64a3 100644 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl @@ -6,9 +6,9 @@ use 5.028.1; use List::Util qw(sum); s{ - (\b \d+) - (,?\d+,)+ - (\d+ \b) + ( \b \d+ ) + ( ,? \d+ , )+ + ( \d+ \b ) (??{ # this block is treated as a pattern # != will return '' (always match) or 1 (fail because of previous \b) diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl new file mode 100644 index 0000000000..23e6977981 --- /dev/null +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl @@ -0,0 +1,10 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use v5.028.1; + +use bigrat qw(bexp PI); + +say bexp(PI*sqrt(163),80); |