Lines Matching defs:sort
71 # A simple selection sort. Not trying to be efficient.
73 proc sort {inlist} {
181 puts "\175 {[sort $aset]}"
188 puts "\175 {[reverse [sort $aset]]}"
192 foreach rx [sort $rset] {
203 foreach rx [reverse [sort $rset]] {
218 foreach x [sort $xset] {
237 foreach rx [sort $rset] {
248 foreach rx [reverse [sort $rset]] {
266 foreach rx [sort $rset] {
277 foreach rx [reverse [sort $rset]] {
337 puts "\175 {[sort $aset]}"
344 puts "\175 {[reverse [sort $aset]]}"
348 foreach rx [sort $rset] {
359 foreach rx [reverse [sort $rset]] {
374 foreach x [sort $xset] {
393 foreach rx [sort $rset] {
404 foreach rx [reverse [sort $rset]] {
422 foreach rx [sort $rset] {
433 foreach rx [reverse [sort $rset]] {