in reply to if ... elsif ... else
But notice that checking divisibility by 2 and by 4 is redundant-- any number divisible by 4 will also be divisible by 2. And if you think more about it: if you want to keep numbers that are divisible by 2 and divisible by 3, then you can just keep those that are divisible by 6. And similarly for the others. So you can write:perl -E ' say for grep { not $_ % 2 | $_ % 3 | $_ % 4 | $_ % 5 } 1..10 +0' 60
Or, if you don't like grep and want a for loop:$ perl -E ' say for grep { not $_ % 60 } 1..200' 60 120 180
for my $i ( $from .. $to ) { say $i unless $i % 60; }
|
|---|