http://www.perlmonks.org?node_id=89884


in reply to Re: Re: Re: Re: Re: (Golf) Cryptographer's Tool #1
in thread (Golf) Cryptographer's Tool #1

Drats, I knew I should have taken latin : )

Just tack on 4 chars to my solution, \200 is the first 8 bit ASCII char, so that is what I'll have to use:

sub c { ($_,$a,%h)=@_;s!.!$h{$&}||=($a=~/./g,"$&\200")!sge;y/\200//d;$_ }

Update: Chipmunk seemed to think this needed to work : ) so it's fixed above, but doesn't come close to competing.

The 15 year old, freshman programmer,
Stephen Rawls