Posted to tcl by schelte at Thu Apr 29 21:54:30 GMT 2010view pretty

% proc foo {} {array set foo {k1 v1 k2 v2 k3 v3}}
% proc foo1 {} {array set foo {k1 v1 k2 v2 k3 v3}}
% time foo 100000
3.48418 microseconds per iteration
% time foo1 100000
1.7591 microseconds per iteration
% time foo 100000
3.70262 microseconds per iteration
% time foo1 100000
1.59128 microseconds per iteration