Lines Matching defs:sort
71 # A simple selection sort. Not trying to be efficient.
73 proc sort {inlist} {
180 puts "\175 {[sort $aset]}"
187 puts "\175 {[reverse [sort $aset]]}"
191 foreach rx [sort $rset] {
202 foreach rx [reverse [sort $rset]] {
217 foreach x [sort $xset] {
236 foreach rx [sort $rset] {
247 foreach rx [reverse [sort $rset]] {
265 foreach rx [sort $rset] {
276 foreach rx [reverse [sort $rset]] {