使用Tcl语言写一个冒泡排序程序

好的，下面是使用Tcl语言写一个冒泡排序程序的代码：

set arr {3 2 1 5 4}
set len [llength $arr]

for {set i 0} {$i < $len - 1} {incr i} {
  for {set j 0} {$j < $len - $i - 1} {incr j} {
    if {[lindex $arr $j] > [lindex $arr [expr $j+1]]} {
      set temp [lindex $arr $j]
      lset arr $j [lindex $arr [expr $j+1]]
      lset arr [expr $j+1] $temp
    }
  }
}

puts $arr

这段代码中，我们首先定义了一个待排序的数组arr，并计算其长度。然后使用两个循环来实现冒泡排序。外层循环控制排序的轮数，内层循环用于比较相邻两个元素的值，并将较大的元素向后移动。最终，数组arr会被排序并输出。