RosettaCodeData/Task/Even-or-odd/Perl/even-or-odd-1.pl
2023-07-01 13:44:08 -04:00

3 lines
61 B
Perl

for(0..10){
print "$_ is ", qw(even odd)[$_ % 2],"\n";
}