diff options
Diffstat (limited to 'challenge-170/james-smith')
| -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''} |