egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-12-23T17:48:49-04:00 https://forum.eggheads.org/app.php/feed/topic/11040 2005-12-23T17:48:49-04:00 2005-12-23T17:48:49-04:00 https://forum.eggheads.org/viewtopic.php?p=58622#p58622 <![CDATA[help with random]]>

Statistics: Posted by bsdkid — Fri Dec 23, 2005 5:48 pm

]]> 2005-12-23T17:32:37-04:00 2005-12-23T17:32:37-04:00 https://forum.eggheads.org/viewtopic.php?p=58620#p58620 <![CDATA[help with random]]>

Code: 

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)

Statistics: Posted by metroid — Fri Dec 23, 2005 5:32 pm

]]> 2005-12-23T16:36:30-04:00 2005-12-23T16:36:30-04:00 https://forum.eggheads.org/viewtopic.php?p=58619#p58619 <![CDATA[help with random]]> Statistics: Posted by caesar — Fri Dec 23, 2005 4:36 pm

]]> 2005-12-23T03:22:10-04:00 2005-12-23T03:22:10-04:00 https://forum.eggheads.org/viewtopic.php?p=58608#p58608 <![CDATA[help with random]]>

Code: 

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.

Statistics: Posted by metroid — Fri Dec 23, 2005 3:22 am

]]> 2005-12-22T23:16:25-04:00 2005-12-22T23:16:25-04:00 https://forum.eggheads.org/viewtopic.php?p=58602#p58602 <![CDATA[help with random]]>
one way how to do this (list putlog random numbers 0-20 without repeating)

Code: 

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

Statistics: Posted by demond — Thu Dec 22, 2005 11:16 pm

]]> 2005-12-22T20:11:22-04:00 2005-12-22T20:11:22-04:00 https://forum.eggheads.org/viewtopic.php?p=58597#p58597 <![CDATA[help with random]]>

Code: 

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]"}

Statistics: Posted by dwickie — Thu Dec 22, 2005 8:11 pm

]]> 2005-12-22T20:11:09-04:00 2005-12-22T20:11:09-04:00 https://forum.eggheads.org/viewtopic.php?p=58596#p58596 <![CDATA[help with random]]> Statistics: Posted by Sir_Fz — Thu Dec 22, 2005 8:11 pm

]]> 2005-12-22T19:41:32-04:00 2005-12-22T19:41:32-04:00 https://forum.eggheads.org/viewtopic.php?p=58595#p58595 <![CDATA[help with random]]> Statistics: Posted by bsdkid — Thu Dec 22, 2005 7:41 pm

]]>