Use recursive procedure to perform a bubble sort on a list of data

#! /usr/bin/expect --

# Use recursive procedure to perform a bubble sort on a list of data

proc recBubblesort {sData sLen} {

set debug 0

# Print the primary data

if {$debug == 1} {

send_user "Primary Data is $sData\n"

}

# Do the bubble sort

if {$sLen > 1} {

for {set i 0} {$i < [expr $sLen - 1]} {incr i} {

set aTmp [lindex $sData $i]

set bTmp [lindex $sData [expr $i + 1]]

if {[string compare -nocase $aTmp $bTmp] > 0} {

set temp [lindex $sData $i]

set sData [lreplace $sData $i $i [lindex $sData [expr $i + 1]]]

set sData [lreplace $sData [expr $i + 1] [expr $i + 1] $temp]

}

}

recBubblesort $sData [expr $sLen - 1]

} else {

# Print the final data

if {$debug == 1} {

send_user "Final Data is $sData\n"

}

return $sData

}

}

set str [lindex $argv 0]

if {$str == ""} {

puts "Please input string!"

exit

} else {

set sLen [llength $str]

set nData [recBubblesort $str $sLen]

send_user "The primary data is <$str>\n"

send_user "The data sorted is <$nData>\n"

}