language: Tcl (tclsh 8.5.7)
date: 153 days 4 hours ago
link:
visibility: public 
1
2
3

proc Random {list} {
set index [expr {int(1 + rand() * ([llength $list]) - 1)}] return $index
}