diff options
| -rwxr-xr-x[-rw-r--r--] | challenge-006/maxim-kolodyazhny/perl5/ch-1.pl | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | challenge-006/maxim-kolodyazhny/perl5/ch-2.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl index 4ccfcc64a3..0a87aa1371 100644..100755 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl @@ -12,7 +12,7 @@ s{ (??{ # this block is treated as a pattern # != will return '' (always match) or 1 (fail because of previous \b) - ($3-$1+1)*($1+$3)/2 != sum split ',', $&; + ( $3 - $1 + 1 ) * ( $1 + $3 ) / 2 != sum split ',', $&; }) } {$1-$3}xg; diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl index 23e6977981..ff3bc8aa53 100644..100755 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-2.pl @@ -7,4 +7,4 @@ use v5.028.1; use bigrat qw(bexp PI); -say bexp(PI*sqrt(163),80); +say bexp( PI * sqrt(163), 80 ); |
