diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-29 07:28:15 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-29 07:28:15 +0000 |
| commit | d2e730fcb0e99a21a32f973ca412331c53fde731 (patch) | |
| tree | 481a7c49ec17d4f417f00f1165c10dfa1ab85a7a /challenge-140 | |
| parent | 5d92143764fb5c8fce90edd16f6938a8470622b3 (diff) | |
| download | perlweeklychallenge-club-d2e730fcb0e99a21a32f973ca412331c53fde731.tar.gz perlweeklychallenge-club-d2e730fcb0e99a21a32f973ca412331c53fde731.tar.bz2 perlweeklychallenge-club-d2e730fcb0e99a21a32f973ca412331c53fde731.zip | |
shorter
Diffstat (limited to 'challenge-140')
| -rw-r--r-- | challenge-140/james-smith/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-140/james-smith/perl/ch-2.pl b/challenge-140/james-smith/perl/ch-2.pl index c37be1e0cf..74114cf551 100644 --- a/challenge-140/james-smith/perl/ch-2.pl +++ b/challenge-140/james-smith/perl/ch-2.pl @@ -24,8 +24,8 @@ is( get_num_exp(@{$_->[0]}), $_->[1] ) for @TESTS; done_testing(); sub get_num { - my($i,$j,$k,$t) = @_; - (sort{$a<=>$b}map{++$t;map{$t*$_}1..$i}1..$j)[$k-1]; + my$t; + (sort{$a<=>$b}map{++$t;map{$t*$_}1..$_[0]}1..$_[1])[$_[2]-1]; } sub get_num_exp { |