Code:

#---------------------------------------------------------------------# randlist# TCL script for IRC-bot eggdrop.# TCL provides specific ordering (ascii, dictionary, integer etc...)# of lists through lsort. The proc "randlist" randomizes a list.# On input a list, returns a randomized list.# v0: 02-Feb-2002#---------------------------------------------------------------------#---------------------------------------------------------------------# For testing purposes from the partyline.#---------------------------------------------------------------------bind dcc - randlist makerandlistproc makerandlist { handle idx arg } {   set list "1 2 3 4 5 6 7 8 9 10"   putlog [randlist $list]}#---------------------------------------------------------------------# Procedure randlist#---------------------------------------------------------------------proc randlist { list } {   # determine length of list   set listlength [llength $list]   # iterate on list, decrease length per iteration    for { set i $listlength } { $i > 1 } { incr i -1 } {      # choose random index       set randindex [rand $i]      # pick the random item      set randitem [lindex $list $randindex]      # cut the random item from the list      set list [lreplace $list $randindex $randindex]      # paste the random item at the end of the list      set list [lappend list $randitem]   }   return $list}