help with random

[bsdkid]

Can you help me make [rand 20] without repeating till all have been used?

[Sir_Fz]

Repeat what?

[dwickie]

one way how to do this (list putlog random numbers 0-20 without repeating)

Code: Select all

set num "0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20"
while {[llength $num]!=0} {
  set index [rand [llength $num]]
  putlog [lindex $num $index]
  set num "[lrange $num 0 [expr $index-1]] [lrange $num [expr $index+1] end]"
}

[demond]

one way how to do this (list putlog random numbers 0-20 without repeating)

Code: Select all

set num "0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20"
while {[llength $num]!=0} {
  set index [rand [llength $num]]
  putlog [lindex $num $index]
  set num "[lrange $num 0 [expr $index-1]] [lrange $num [expr $index+1] end]"
}

[string replace] should be used instead of manipulating lists

[metroid]

Code: Select all

set x ""
while {[llength $x] < 20} { 
 lappend x [rand 20]
 set x [lsort -unique $x]
}

This code will also create a list of 20 different numbers. (20 not included)
If you want it to list the numbers from 19 to 0 or 0 to 19 just change the lsort slightly.

[caesar]

[expr [rand 20] +1] to have from 1 to 20 (bouth included) not from 0 to 19.

[metroid]

Seeing as he said [rand 20] i didn't bother with 1 to 20 :p

Code: Select all

set x ""
while {[llength $x] < 20} {
 set x [lsort -integer -unique [lappend x [expr [rand 20] + 1]]]
}

is an more compact version (not that it really matters)

[bsdkid]

thx guys! great job