Help for this page

Select Code to Download


  1. or download this
    sub c {
    ($_,$a)=@_;                                   
    map{$h{$_}?$h{$_}:do{$h{$_}=(split//,$a)[$i++]."\0"}}/./g
    }
    
  2. or download this
    sub c {
    ($_,$a)=@_;$b=$_;  
    ...
    eval"y/$b/$a/";    
    $_ 
    }
    
  3. or download this
    sub c {
    ($_,$a)=@_;$b=$_;  
    ...
    eval"y/\Q$b\E/\Q$a\E/";    
    $_ 
    }