$10K coding deathmatch

Andy Bradford amb-plug at bradfords.org
Fri Nov 3 11:10:14 MST 2006

Thus said "Matthew Walker" on Fri, 03 Nov 2006 10:52:18 MST:

> This will generate a random input file for you:

Here are are the results on a random file (I changed $lines to be a
static 100 rather than random):

My Tcl:

real    0m0.153s
user    0m0.125s
sys     0m0.008s


real    0m0.054s
user    0m0.039s
sys     0m0.016s


real    0m0.030s
user    0m0.016s
sys     0m0.016s

Michael's Tcl:

real    0m0.021s
user    0m0.008s
sys     0m0.008s

Short circuit Perl:

real    0m0.012s
user    0m0.008s
sys     0m0.000s

Thanks for the random number generator.

[-----------[system uptime]--------------------------------------------]
 11:10am  up 5 days, 55 min,  1 user,  load average: 1.00, 1.00, 1.00

More information about the PLUG mailing list