Select Code to Download

sub obvious{
#  (explained : count from zero until Z, return the current count if w
+e found the position we are looking for)
...
    #23456789012345678901234567890123456789012345678901234567890
    $n=pop;for(;$n ne((0..9),(A..Z))[$a];$a++){}"$a"||0;
}

sub fun {
# (explained : reduce the numbers to their base2 (binary)
...
    # same thing, but obfu
  # $n=ord(pop);$a=($n&(1<<(4+($n>>6)))-1)+($n>>6&&9);
}