[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Shell Golf



> perl -F. -ane'$x=@F;@n=($x,$ARGV,$_)if@F>$n[0];END{warn"@n"}' *.pl

Since you guys are quibbling over whitespace, here's my own entry
that whacks 4 more characters off of Steve's bloated entry:

perl -F. -ane'@n=(++$#F,$ARGV,$_)if$#F>$n[0];END{warn"@n"}' *.pl

Rock on. 64 characters.

Mike808/



---------------------------------------------
http://www.valuenet.net



-
To unsubscribe, send email to majordomo@luci.org with
"unsubscribe luci-discuss" in the body.