Front page | perl.golf |
Postings from August 2002
In article <ak9abv$ak8$1@quasar.home.lunix>,
ton@kali.home.lunix (Ton Hospel) writes:
> In article <20020824233431.GA5162@iki._i>,
> Juho Snellman <jsnell@iki.fi> writes:
>> #!perl -p
>> $a=$_;s/./(sort 7,9,(2..9)x3)[-97+ord lc$&]/ge>=length$\&/^(.)\1+$/and$\=$a}{
> 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
Thread Previous
|
Thread Next