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

  1. % set d [dict create]
  2. % for {set x 0} {$x < 100000} {incr x} {dict set d key:$x value:$x}
  3. % time {lreverse $d} 100
  4. 3332.55 microseconds per iteration
  5. % time {dict create {*}[lreverse $d]} 100
  6. 61818.58 microseconds per iteration
  7. % time {set e {}; dict for {k v} $d {lappend e $v $k}} 100
  8. 121130.29 microseconds per iteration
  9. %