$10K coding deathmatch

[Andy Bradford]

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

Python:

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

Perl:

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.

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