$10K coding deathmatch

[Charles Curley]

On Thu, Nov 02, 2006 at 08:35:56AM -0700, Alan Young wrote:
> perl -ape '$_=((grep{(abs($F[$_]-$F[$_-1])||@F)>=@F}1..$#F)?"not a
        ^^^

Speaking of code monkeys....

-- 

Charles Curley                  /"\    ASCII Ribbon Campaign
Looking for fine software       \ /    Respect for open standards
and/or writing?                  X     No HTML/RTF in email
http://www.charlescurley.com    / \    No M$ Word docs in email

Key fingerprint = CE5C 6645 A45A 64E4 94C0  809C FFF6 4C48 4ECD DFDB
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://plug.org/pipermail/plug/attachments/20061102/bff7d2fa/attachment.pgp