Front page | perl.golf |
Postings from August 2002
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]
Thread Previous
|
Thread Next