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"}'

/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/

Reply via email to