Help for this page

Select Code to Download


  1. or download this
    sub c{
    ($_,$a)=@_;s!.!chr($h{$&}||=($a=~/./g,ord$&))!ge;$_
    #23456789_123456789_123456789_123456789_123456789_1
    }
    
  2. or download this
    sub c{
    ($_,$a,%h)=@_;s!.!chr($h{$&}||=($a=~/./g,ord$&))!ge;$_
    #23456789_123456789_123456789_123456789_123456789_1234
    }