Help for this page
@a = (1); for (1..10) { ... { $na[-1] == $_ ? $na[-2]++ : push @na, (1, $_) } @a=@na; }
www.com | www.net | www.org
No recent polls found