$10K coding deathmatch

Paul Seamons paul at seamons.com
Thu Nov 2 10:08:05 MST 2006


On Thursday 02 November 2006 8:35 am, Alan Young wrote:
> perl -ape '$_=((grep{(abs($F[$_]-$F[$_-1])||@F)>=@F}1..$#F)?"not a
> ":"")."match\n"'

Wow!  Truly a thing of beauty.

"-a" - who knew.

Paul



More information about the PLUG mailing list