diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-07-06 21:49:56 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-07-06 21:49:56 +0100 |
| commit | 91ec3a3e5779d077f359321a448ace899d83767e (patch) | |
| tree | 125a43758302a378f73d36f74739d90c26a88cc9 /challenge-170/james-smith/perl | |
| parent | a4595e41ab0e9db124dbaee1b437f879857047df (diff) | |
| parent | 22eb11d6f37d91f264267895f633ce53c1d5babf (diff) | |
| download | perlweeklychallenge-club-91ec3a3e5779d077f359321a448ace899d83767e.tar.gz perlweeklychallenge-club-91ec3a3e5779d077f359321a448ace899d83767e.tar.bz2 perlweeklychallenge-club-91ec3a3e5779d077f359321a448ace899d83767e.zip | |
Merge pull request #6398 from drbaggy/master
first pass...
Diffstat (limited to 'challenge-170/james-smith/perl')
| -rw-r--r-- | challenge-170/james-smith/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-170/james-smith/perl/ch-2.pl | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/challenge-170/james-smith/perl/ch-1.pl b/challenge-170/james-smith/perl/ch-1.pl index 9109ba2161..956b48bd67 100644 --- a/challenge-170/james-smith/perl/ch-1.pl +++ b/challenge-170/james-smith/perl/ch-1.pl @@ -19,5 +19,5 @@ sub th { scalar reverse( (reverse $_[0]) =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/gr ) } #----|----#----|----#----|----#----|----#----|----#----|---- say$a=1;forprimes{say$a*=$_}nth_prime($ARGV[0]//10)-1; -say$a=1;forprimes{say$a*=$_}nth_prime 9; +say$a=1;forprimes{say 2*($a*=$_)**2}nth_prime 9; say$a=1;forprimes{say$a*=$_}23 diff --git a/challenge-170/james-smith/perl/ch-2.pl b/challenge-170/james-smith/perl/ch-2.pl index 0f551ca2c2..23eace44db 100644 --- a/challenge-170/james-smith/perl/ch-2.pl +++ b/challenge-170/james-smith/perl/ch-2.pl @@ -17,5 +17,6 @@ sub k_product { #73 chars... sub k{[map{$b=$_;map{$a=$_;[map{//;map{$'*$_}@$a}@$b]}@{$_[1]}}@{$_[0]}]} -sub d{say'[',(map{sprintf' %6d',$_}@{$_}),' ]'for@{$_[0]};say''} +#61 chars... +sub d{say"[ @{[map{sprintf'%6d',$_}@$_]} ]"for@{$_[0]};say''} |