From 35e89da28fa5acf448dde4127c093031888e2fde Mon Sep 17 00:00:00 2001 From: drbaggy Date: Fri, 3 Dec 2021 14:10:52 +0000 Subject: removed ; --- challenge-141/james-smith/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 } -- cgit