diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-14 13:18:37 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-14 13:18:37 +0100 |
| commit | 7bb660fb2ee075e26548e3fa3e48118147516e1a (patch) | |
| tree | 07d7862a0bff6087dc439531fd4cce62e1317929 | |
| parent | 44192c21b19c8521dee655826d789dbf052bf215 (diff) | |
| download | perlweeklychallenge-club-7bb660fb2ee075e26548e3fa3e48118147516e1a.tar.gz perlweeklychallenge-club-7bb660fb2ee075e26548e3fa3e48118147516e1a.tar.bz2 perlweeklychallenge-club-7bb660fb2ee075e26548e3fa3e48118147516e1a.zip | |
- Updated solutions by James Smith.
| -rwxr-xr-x | challenge-030/james-smith/perl5/ch-1.sh | 2 | ||||
| -rwxr-xr-x | challenge-030/james-smith/perl5/ch-2.sh | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-030/james-smith/perl5/ch-1.sh b/challenge-030/james-smith/perl5/ch-1.sh index 587845fc98..334483a152 100755 --- a/challenge-030/james-smith/perl5/ch-1.sh +++ b/challenge-030/james-smith/perl5/ch-1.sh @@ -1 +1 @@ -perl -E'say map{$a=$_;map{" $a,$_,".(12-$a-$_)}$a+1..5.5-$a/2}1..3' +perl -E'say"@{[grep{!(int(5*$_/4)%7)}2019..2099]}"' diff --git a/challenge-030/james-smith/perl5/ch-2.sh b/challenge-030/james-smith/perl5/ch-2.sh index 334483a152..587845fc98 100755 --- a/challenge-030/james-smith/perl5/ch-2.sh +++ b/challenge-030/james-smith/perl5/ch-2.sh @@ -1 +1 @@ -perl -E'say"@{[grep{!(int(5*$_/4)%7)}2019..2099]}"' +perl -E'say map{$a=$_;map{" $a,$_,".(12-$a-$_)}$a+1..5.5-$a/2}1..3' |