Search code examples
perl

How can I alternate between even and odd numbers?

I want the output to show which numbers are even and which are odd. Strangely, I only get 100 is odd 100 times. Does anyone know what I did wrong?

my @zahlen = (1..100);
my $zahlen = @zahlen;

foreach (@zahlen){
    if (@zahlen % 2) {
        print "$zahlen is even\n";
    } else {
        print "$zahlen is odd\n";
    }
}
Solution

  • You are using the wrong variables in the wrong places. You set $zahlen to a constant value outside the loop (100). You can use it as the loop iterator variable instead.

    Also, you should use the scalar $zahlen instead of the array @zahlen in the if statement.

    use warnings;
use strict;

my @zahlen = (1 .. 10);

foreach my $zahlen (@zahlen) {
    if ($zahlen % 2) {
        print "$zahlen is odd\n";
    }
    else {
        print "$zahlen is even\n";
    }
}

    Prints (I changed 100 to 10 to simplify the output):

    1 is odd
2 is even
3 is odd
4 is even
5 is odd
6 is even
7 is odd
8 is even
9 is odd
10 is even