Anonymous user
Sorting algorithms/Bogosort: Difference between revisions
→{{header|Tcl}}: shorten code a bit
(doesn't need saying) |
(→{{header|Tcl}}: shorten code a bit) |
||
Line 800:
proc shuffleInPlace {listName} {
upvar 1 $listName list
set len [set len2 [llength $list]]
for {set
set n [expr {int($i + $len2 * rand())}]
set temp [lindex $list $i]
lset list $i [lindex $list $n]
| |||