develooper Front page | | Postings from August 2002

Re: TPR(0,5?) call for referees

Thread Previous | Thread Next
August 24, 2002 18:49
Re: TPR(0,5?) call for referees
Message ID:
In article <>,
	Rick Klement <> writes:
> Juho Snellman wrote:
>> It seems like there should be some exceedingly clever way to do this,
>> but I can barely make a one-liner out of it. Can anyone either improve
>> this, or figure out a better approach?
>> #!perl -p
>> $a=$_;s/./(sort 7,9,(2..9)x3)[-97+ord lc$&]/ge>=length$\&/^(.)\1+$/and$\=$a}{
> Just because I've never used tr///s before, I thought I'd try it:
> -p $a=$_;$_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\=$a}{
Save a bit more like this: (hard newline)
-ap $_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\="@F\n"}{

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About