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

[Mtv Europe]

Hello Ton!

[EMAIL PROTECTED] (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