🚀 go-pugleaf

On Tue, 31 May 2005 11:44:21 +0200, Googie wrote:

> Użytkownik "Derek Kuliński / takeda" <d.kulinski@gmail.com> napisał:
> 
>> Ma ktoś pomysł jak poniższą procedurę zoptymalizować? Działać działa, ale
>> nie jest to ładne rozwiązanie. Bardzo nie podoba mi się powtarzający się
>> kod.
> 
> Mnie się udało sprowadzić to do takiej postaci: (nie testowałem czy działa -
> nie mam na stanie żadnych botów).
> Generalnie "optymalizacja" sprowadza się do krótszego zapisu powtarzającego
> się kodu (a więc to co Ci się nie podobało :) ). Oprócz tego wyrzuciłem z
> pętli sprawdzanie 'if {$modes == ""} {.......}', bo i tak można ustawiać "+"
> lub "-" na wstępie oraz przy "resetowaniu" wartości modes.

[ ... cut ... ]

Heh, zawsze jest jakiś bug jak się kodu nie sprawdzi: :P
| [18:33:25] <takeda> .tcl ::r_protect::combine_modes #z [list 1 2 3 4] [list 5 6 7 8]
| [18:33:25] <testbot> Tcl: {MODE #z -RRR 5 6 7} {MODE #z +RR 8 1 2} {MODE #z +RR 3 4}
| [18:33:32] <takeda> .tcl ::r_protect::old_combine_modes #z [list 1 2 3 4] [list 5 6 7 8]
| [18:33:32] <testbot> Tcl: {MODE #z -RRR 5 6 7} {MODE #z -R+RR 8 1 2} {MODE #z +RR 3 4}

Poprawiłem, kod jest trochę nmniej zgrabny niż Twój, ale na pewno lepszy
niż oryginalny.

| proc combine_modes {add_r rm_r} {
| 	set maxlen ${::modes-per-line}
| 
| 	set output [list]
| 	set masks [list]
| 	set modes ""
| 	foreach {var sig} [list rm_r "-" add_r "+"] {
| 		if {![llength [set $var]]} {continue}
| 		append modes $sig
| 		foreach mask [set $var] {
| 			if {$modes == ""} {set modes $sig}
| 			append modes "R" ; lappend masks $mask
| 			if {[llength $masks] >= $maxlen} {
| 				lappend output "$modes [join $masks]"
| 				set modes "" ; set masks [list]
| 			}
| 		}
| 	}
| 
| 	if {[llength $masks] > 0} {
| 		lappend output "$modes [join $masks]"
| 	}
| 
| 	return $output
| }

To llength jest do sytuacji, kiedy któraś z list jest pusta (właściwie
częsty przypadek w tym skrypcie)

Z kolei set zamienione na append i if {$modes == ""} {set modes $sig} jest
po to aby wyeliminować problem który pokazałem powyżej.

BTW: Tego triku z foreach nie zajarzyłem, bo zapisałeś listę w trochę
dziwny (dla mnie) sposób =)
Ja staram się go unikać, bo to jest częsty powód problemów ze znakami
takimi jak {}[]\ itp.

-- 
takeda@IRCnet.EFnet, ICQ# 15827691, TLEN: taked4, YahooIM: takeda64
http://eggwiki.takeda.tk - nowa ulepszona strona !!!