$10K coding deathmatch

Paul Seamons paul at seamons.com
Fri Nov 3 11:41:39 MST 2006


On Friday 03 November 2006 11:00 am, Steve wrote:
> Ok what would that look like as one line of perl?

perl -e 'for(1..10){print join(" ",map{int(rand(200)-100)}
1..1+rand(10-1)),"\n"}'

First "10" is the number of lines - second "10" is the entries per line.

Paul



More information about the PLUG mailing list