$10K coding deathmatch

Alan Young alansyoungiii at gmail.com
Thu Nov 2 08:35:56 MST 2006


perl -ape '$_=((grep{(abs($F[$_]-$F[$_-1])||@F)>=@F}1..$#F)?"not a
":"")."match\n"'



More information about the PLUG mailing list