3 lines
105 B
Tcl
3 lines
105 B
Tcl
set people {{joe 120} {foo 31} {bar 51}}
|
|
# sort by the first element of each pair
|
|
lsort -index 0 $people
|