Re^3: Match all Odd and Even Numbers

Do you mind to use below code

my $num= [1 .. 100];
my (@even,@odd);
map{0==$_%2 ? push(@odd,$_):push(@even,$_)} @$num;
print "@even and @odd";
[download]

Comment on Re^3: Match all Odd and Even Numbers Download Code

Replies are listed 'Best First'.
Re^4: Match all Odd and Even Numbers by Anonymous Monk on Oct 12, 2012 at 06:30 UTC
Hi, you can't talk to the past :) that post is from 2003, Dru last here 2 years ago	[reply]