diff options
Diffstat (limited to 'challenge-170/james-smith/perl/ch-2.pl')
| -rw-r--r-- | challenge-170/james-smith/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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''} |