Re: How do I gather and output info about a file's contents? (Golf)

Reproduce the output from wc using as few chars as possible. (634)

Update: Put the space back.

wc readme.txt
    644    5611   36120 readme.txt

perl -anlwe"$w+=@F;$c+=length}{print qq[\t$. $w ${\($c+$.*2)} $ARGV]" 
+readme.txt
        644 5611 36120 readme.txt
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re: How do I gather and output info about a file's contents? (Golf) Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I gather and output info about a file's contents? (Golf) by Corion (Patriarch) on Oct 13, 2007 at 14:27 UTC
Low hanging fruit: `perl -aplwe"$w+=@F;$c+=length}{$_=qq[\t$. $w ${\($c+$.*2)} $ARGV]"` [download] Updated: There seems to be a space missing before $ARGV	[reply] [d/l]