diff options
| -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); |