diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-12-03 14:10:52 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-12-03 14:10:52 +0000 |
| commit | 35e89da28fa5acf448dde4127c093031888e2fde (patch) | |
| tree | 72553845ebe1cd51be704adecf41cea46e204672 | |
| parent | 6f118f32e31ba59a2e5bc241a4528a01a5229797 (diff) | |
| download | perlweeklychallenge-club-35e89da28fa5acf448dde4127c093031888e2fde.tar.gz perlweeklychallenge-club-35e89da28fa5acf448dde4127c093031888e2fde.tar.bz2 perlweeklychallenge-club-35e89da28fa5acf448dde4127c093031888e2fde.zip | |
removed ;
| -rw-r--r-- | challenge-141/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-141/james-smith/perl/ch-2.pl b/challenge-141/james-smith/perl/ch-2.pl index 8ff4a87996..e606314b33 100644 --- a/challenge-141/james-smith/perl/ch-2.pl +++ b/challenge-141/james-smith/perl/ch-2.pl @@ -21,6 +21,6 @@ sub like_numbers { my @digits = split//,$_[0]; 0 + grep { !($_%$_[1]) } map { my $n=$_<<1; join '',grep{($n>>=1)&1} @digits } - 1 .. (1<<@digits) - 2; + 1 .. (1<<@digits) - 2 } |