in reply to incrementing mixed letters and numbers
poj#!perl use strict; use Math::Base36 ':all'; my $number = decode_base36('9999'); print lc encode_base36(++$number)." " for 1..100;
In Section
Seekers of Perl Wisdom
in reply to incrementing mixed letters and numbers
poj#!perl use strict; use Math::Base36 ':all'; my $number = decode_base36('9999'); print lc encode_base36(++$number)." " for 1..100;