Front page | perl.golf |
Postings from August 2002
Hello Ton!
perl-golf@ton.iguana.be (Ton Hospel) wrote:
>> here is one approach:
>> -p $a[s/./grep{uc$<$_}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