lsort(3tcl) | Tcl Built-In Commands | lsort(3tcl) |
lsort - 给一个列表的元素排序
lsort ?options? list
这个命令给 list 的元素排序,返回按整理后的次序(排列)的一个新列表。lsort 命令的实现使用了归并排序算法,这个算法有 O(n log n) 性能特征的一个稳定的排序算法。
缺省的使用 ASCII 排序,并按升序返回结果。但是,可以在 list 的前面指定任何下列参数来控制排序处理(接受唯一性的缩写):
lsort -integer -index 1 {{First 24} {Second 18} {Third 30}}
lsort -index end-1 {{a 1 e i} {b 2 3 f g} {c 4 5 6 d h}}
The options to lsort only control what sort of comparison is used, and do not necessarily constrain what the values themselves actually are. This distinction is only noticeable when the list to be sorted has fewer than two elements.
The lsort command is reentrant, meaning it is safe to use as part of the implementation of a command used in the -command option.
Sorting a list using ASCII sorting:
% lsort {a10 B2 b1 a1 a2} B2 a1 a10 a2 b1
Sorting a list using Dictionary sorting:
% lsort -dictionary {a10 B2 b1 a1 a2} a1 a2 a10 b1 B2
Sorting lists of integers:
% lsort -integer {5 3 1 2 11 4} 1 2 3 4 5 11 % lsort -integer {1 2 0x5 7 0 4 -1} -1 0 1 2 4 0x5 7
Sorting lists of floating-point numbers:
% lsort -real {5 3 1 2 11 4} 1 2 3 4 5 11 % lsort -real {.5 0.07e1 0.4 6e-1} 0.4 .5 6e-1 0.07e1
Sorting using indices:
% # Note the space character before the c % lsort {{a 5} { c 3} {b 4} {e 1} {d 2}} { c 3} {a 5} {b 4} {d 2} {e 1} % lsort -index 0 {{a 5} { c 3} {b 4} {e 1} {d 2}} {a 5} {b 4} { c 3} {d 2} {e 1} % lsort -index 1 {{a 5} { c 3} {b 4} {e 1} {d 2}} {e 1} {d 2} { c 3} {b 4} {a 5}
Stripping duplicate values using sorting:
% lsort -unique {a b c a b c a b c} a b c
More complex sorting using a comparison function:
% proc compare {a b} {
set a0 [lindex $a 0]
set b0 [lindex $b 0]
if {$a0 < $b0} {
return -1
} elseif {$a0 > $b0} {
return 1
}
return [string compare [lindex $a 1] [lindex $b 1]] } % lsort -command compare \
{{3 apple} {0x2 carrot} {1 dingo} {2 banana}} {1 dingo} {2 banana} {0x2 carrot} {3 apple}
lappend(n), lindex(n), linsert(n), list(n), llength(n), lrange(n), lreplace(n), lsearch(n)
element, list, order, sort
寒蝉退士
2001/09/06
http://cmpp.linuxforum.net
本页面中文版由中文
man 手册页计划提供。
中文 man
手册页计划:https://github.com/man-pages-zh/manpages-zh
8.3 | Tcl |