Sorting algorithms/Selection sort - Rosetta Code

package require Tcl 8.5 package require struct:: list proc selectionsort {A} {set len [llength $A] for {set i 0} {$i < $len - 1} {incr i} {set min_idx [expr {$i + 1}] for {set j $min_idx} {$j < $len} {incr j} {if {[lindex $A $j] < [lindex $A $min_idx]} {s

rosettacode.org