develooper Front page | | Postings from August 2002

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

Thread Previous | Thread Next
Mtv Europe
August 27, 2002 10:44
Re: TPR(0,5?) call for referees
Message ID:
Hello Ton! (Ton Hospel) wrote:

>> here is one approach:
>> -p $a[s/./grep{uc$&lt$_}D,G,J,M,P,T,W/ge*/^(.)\1$/]="$_"}{$_=$a[-1]
> Oh, that's bad if only mixed words are given. use an explicit length test
> instead then

here is different horse with the same limp:

-p @;[map{y/Z/X/;s#.#$==(-64+ord$&)/3.2#ge*/^$=*$/}uc]=$_}{$_=pop@

Mtv Europe

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