diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-04-20 01:09:29 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-04-20 01:09:29 +0100 |
| commit | 409aa453f4ced3d15e94ded54ffd9b6a2b2a598d (patch) | |
| tree | 1d1de1740dd7c19174cd8fca539af88869e6e364 | |
| parent | c0c04878d89752ef61d67fb731e6ea9d13c13304 (diff) | |
| download | perlweeklychallenge-club-409aa453f4ced3d15e94ded54ffd9b6a2b2a598d.tar.gz perlweeklychallenge-club-409aa453f4ced3d15e94ded54ffd9b6a2b2a598d.tar.bz2 perlweeklychallenge-club-409aa453f4ced3d15e94ded54ffd9b6a2b2a598d.zip | |
tidied up loop
| -rw-r--r-- | challenge-109/james-smith/perl/ch-1.pl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-109/james-smith/perl/ch-1.pl b/challenge-109/james-smith/perl/ch-1.pl index df12634c3b..2c38afe0c4 100644 --- a/challenge-109/james-smith/perl/ch-1.pl +++ b/challenge-109/james-smith/perl/ch-1.pl @@ -15,12 +15,8 @@ done_testing(); sub my_function { sub chowla { - my ($n,$t) = ($_[0],0); - return map( { $t+=$_ || () } - map { ( $_ && !($n%$_) ) ? $_ : () } - 2..($n-1) - ), - $t; + my ($t,$n) = (0,@_); + return ( map { (($n%$_) || ($t+=$_)) && () } 2..$n-1 ), $t; } } |