Posted to tcl by evilotto at Mon Jun 17 21:11:27 GMT 2013view pretty

% set d [dict create]
% for {set x 0} {$x < 100000} {incr x} {dict set d key:$x value:$x}
% time {lreverse $d} 100
3332.55 microseconds per iteration
% time {dict create {*}[lreverse $d]} 100
61818.58 microseconds per iteration
% time {set e {}; dict for {k v} $d {lappend e $v $k}} 100
121130.29 microseconds per iteration
%