Procédure
proc randomize_list {data} { set list_length [llength $data] for { set counter 1 } { $counter <= $list_length } { incr counter } { set index [rand [expr {$list_length - $counter + 1}]] lappend randomized_list [lindex $data $index] set data [lreplace $data $index $index] } return $randomized_list }


Exemple
randomize_list {a b c d e f} Tcl: c f e d b a