diff options
| author | Daniel Mita <mienaikage@gmail.com> | 2019-10-15 13:37:09 +0100 |
|---|---|---|
| committer | Daniel Mita <mienaikage@gmail.com> | 2019-10-15 14:18:10 +0100 |
| commit | 735097f0e3c7e8381b080d85ec0022a3a47ca30a (patch) | |
| tree | 2f060eb6d9653ce83b5753daac7f50decfcb318a /challenge-030/daniel-mita | |
| parent | 4186d4ae2bc3d99dabd4b0cd5cd944f797c84fcf (diff) | |
| download | perlweeklychallenge-club-735097f0e3c7e8381b080d85ec0022a3a47ca30a.tar.gz perlweeklychallenge-club-735097f0e3c7e8381b080d85ec0022a3a47ca30a.tar.bz2 perlweeklychallenge-club-735097f0e3c7e8381b080d85ec0022a3a47ca30a.zip | |
Add ch-2.pl for challenge-030
Tweak ch-2.p6
Diffstat (limited to 'challenge-030/daniel-mita')
| -rwxr-xr-x | challenge-030/daniel-mita/perl5/ch-2.pl | 15 | ||||
| -rwxr-xr-x | challenge-030/daniel-mita/perl6/ch-2.p6 | 4 |
2 files changed, 17 insertions, 2 deletions
diff --git a/challenge-030/daniel-mita/perl5/ch-2.pl b/challenge-030/daniel-mita/perl5/ch-2.pl new file mode 100755 index 0000000000..87e6d2e717 --- /dev/null +++ b/challenge-030/daniel-mita/perl5/ch-2.pl @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use 5.012; +use warnings; + +use List::Util qw(sum); + +for my $i ( 1..10 ) { + for my $j ( 1..10 ) { + for my $k ( 1..10 ) { + my @group = ( $i, $j, $k ); + say join '|', map { sprintf '%2u', $_ } @group + if sum(@group) == 12; + } + } +} diff --git a/challenge-030/daniel-mita/perl6/ch-2.p6 b/challenge-030/daniel-mita/perl6/ch-2.p6 index 84de4a0008..085e8af697 100755 --- a/challenge-030/daniel-mita/perl6/ch-2.p6 +++ b/challenge-030/daniel-mita/perl6/ch-2.p6 @@ -1,6 +1,6 @@ #!/usr/bin/env perl6 use v6; -for [X] (1..12) xx 3 { - .fmt('%2u', '|').say when .sum == 12 && .any %% 2; +for [X] ( 1..10 ) xx 3 { + .fmt('%2u', '|').say when .sum == 12; } |