RosettaCodeData/Task/Even-or-odd/Perl/even-or-odd-1.pl
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

3 lines
61 B
Perl

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