tcl编程练习1

1.用函数来实现对任意长度任意数列进行排序的功能，要求通过参数来选择从大到小排序，还是从小到大排序； 并将结果输出到一个文件里。例如，当输入2，9，4，3时，从大到小排序输出结果为：9，4，3，2。

set string {
   2,9,4,3}
set newlist_file [open "newlist.txt" w]   #w,以只写方式写入文件
set list [split $string ,]
puts $list
puts "please select mode:"                #选择升序还是降序排列