Help for this page

Select Code to Download


  1. or download this
    sub c {
    ($_,$a,%h)=@_;join'',map{substr$a,($h{$_}||=keys%h)-1,1}/./gs
    }
    
  2. or download this
    sub c {
    my%h;join'',map{substr$_[1],($h{$_}||=keys%h)-1,1}$_[0]=~/./gs
    }