Help for this page
{ my @to_b36 = (0 .. 9, 'A' .. 'Z'); my %to_num; ... sub inc_b36 { num_to_b36(&b36_to_num + 1) } }
{ # in the same block as the previous code ... return $n; } }
{ # ditto ... return scalar reverse $n; } }
sub GOLF { local$_=pop;@_{@_=( 0..9,A..Z)}=0..35;s ... $1}+1].$-x length$2 /e?$_:1 .$-x y!!!c }
www.com | www.net | www.org
No recent polls found