egghelp/eggheads community

array question

2005-10-24T12:13:11-04:00

Yeah, it's ok.
Thanks

Statistics: Posted by romain — Mon Oct 24, 2005 12:13 pm

array question

2005-10-24T07:08:32-04:00

try:

Code:

proc pub:test {nick host hand chan arg} {  foreach {x y} [array get ::kick] {    if {[string is integer -s $y]} {      lappend score [list $x $y]    }  }  set i 1  foreach {e} [lsort -decreasing -integer -index 1 $score] {    puthelp "PRIVMSG $chan :$i. [lindex $e 0] with [lindex $e 1] kicks"    if {[incr i] == 10} {break}  }}

if you wonder why I used 2 foreach... the problem is that array get will not return a proper sublist, but just a list which uneven elements are the names and even ones are the values. So first a proper sublist must be created then we can use lsort to sort it . Change the '== 10' thing to whatever maximum number of results you want .
btw. the is integer check will prevent possible errors to occur in lsort from unproper array values. Since I dont know the script that created it, I wont trust it .

Statistics: Posted by De Kus — Mon Oct 24, 2005 7:08 am

array question

2005-10-24T03:57:57-04:00

Hello,

I've more difficulty to write the results like this

1. kili with 30 kicks
2. lili with 15 kicks
3. lolo with 10 kicks
4. kilo with 3 kicks

if somebody can help me

Statistics: Posted by romain — Mon Oct 24, 2005 3:57 am

array question

2005-10-19T15:54:18-04:00

decreasing in which way? Value or element? For value (which would put the one with the most kicks to the top) you will need to add ' -integer -index 1' to the parameters of lsort.

Statistics: Posted by De Kus — Wed Oct 19, 2005 3:54 pm

array question

2005-10-19T14:24:25-04:00

Replace

Code:

[array get ::score]

with

Code:

[lsort -decreasing [array get ::score]]

Statistics: Posted by KrzychuG — Wed Oct 19, 2005 2:24 pm

array question

2005-10-24T03:58:51-04:00

hello,

I have this script

Code:

set ::kick(lolo) 10set ::kick(lili) 15set ::kick(kilo) 3set ::kick(kili) 30bind pub - !kick pub:testproc pub:test {nick host hand chan arg} { foreach {x y} [array get ::kick] {  putserv "privmsg $chan : $x with $y kicks" }}

It works.But it's possible to write this list in order decreasing

Statistics: Posted by romain — Wed Oct 19, 2005 9:20 am