$10K coding deathmatch

Alan Young alansyoungiii at gmail.com
Fri Nov 3 12:49:15 MST 2006


Steve wrote:
> Ok what would that look like as one line of perl?

Must ... resist ... tempt ... ation ...

Ah, bag it.

perl -e 'sub i($){int rand$_[0]}$i=i(900)+100;while($i--){print join"
",map{i 65535*(i 2?-1:1)}0..i 1023;print"\n"}'



More information about the PLUG mailing list