} {1 10 2 3}
tags {"slow"} {
+ set res {}
test {Create a random list and a random set} {
set tosort {}
array set seenrand {}
lappend tosort [list $i $rint]
}
set sorted [lsort -index 1 -real $tosort]
- set res {}
for {set i 0} {$i < 10000} {incr i} {
lappend res [lindex $sorted $i 0]
}