🚀 go-pugleaf

Derek Kuliński / takeda wrote:
> Najbardziej nie podoba mi się procedura calculate_timer_value, ale jeżeli
> ktoś ma pomysły jak poprawić inne części to też będzie to mile widziane =)

Może tak:

proc calculate_timer_value {time_left} {
	foreach {v1 v2} {
		86400 86400
		72000 14400
		1800 1800
		900 900
		300 300
		60 60
		30 30
		15 15
		5 5
		0 1
	} {
		if {$time_left > $v1} {
			return $v2
		}
	}
	return 0
}

> Przy okazji chciałbym życzyć Wam wszystkiego najlepszego z okazji
> zbliżającego się Nowego Roku :)

A dziękuję, dziękuję, wzajemnie :)

-- 
Pozdrawiam!
Googie

On Wed, 28 Dec 2005 09:42:45 +0100, Googie wrote:

> proc calculate_timer_value {time_left} {
> 	foreach {v1 v2} {
> 		86400 86400
> 		72000 14400
> 		1800 1800
> 		900 900
> 		300 300
> 		60 60
> 		30 30
> 		15 15
> 		5 5
> 		0 1
> 	} {
> 		if {$time_left > $v1} {
> 			return $v2
> 		}
> 	}
> 	return 0
> }

No wygląda to duuużo lepiej (i znowu to foreach =)))
Niemniej musiałem zmienić to:
| 			return $v2
na:
|			return [adjust_timer $time_left $v2]

Inaczej nie przechodziło testów :)

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC

Derek Kuliński / takeda wrote:
> No wygląda to duuużo lepiej (i znowu to foreach =)))

Sprawdź jeszcze ([time]) ile wykonuje się ta metoda, a ile ta 
poprzednia. Szkoda tracić prędkość kosztem ładnego wyglądu kodu. No 
chyba że tutaj to nie gra roli :)

> Niemniej musiałem zmienić to:
> | 			return $v2
> na:
> |			return [adjust_timer $time_left $v2]
> 
> Inaczej nie przechodziło testów :)
> 

Nie zagłębiałem się w działanie ;)

-- 
Pozdrawiam!
Googie

On Thu, 29 Dec 2005 09:22:43 +0100, Googie wrote:

>> No wygląda to duuużo lepiej (i znowu to foreach =)))
> Sprawdź jeszcze ([time]) ile wykonuje się ta metoda, a ile ta 
> poprzednia. Szkoda tracić prędkość kosztem ładnego wyglądu kodu. No 
> chyba że tutaj to nie gra roli :)

Fakt to z pętlą foreach raczej będzie działało dłużej... Ale jeżeli wykona
się w mniej niż sekundę to powinno być ok... Z drugiej strony, poniższa
funkcja skoryguje czas (o ile działa poprawnie).

>> Niemniej musiałem zmienić to:
>>| 			return $v2
>> na:
>>|			return [adjust_timer $time_left $v2]
>> Inaczej nie przechodziło testów :)
> Nie zagłębiałem się w działanie ;)

Fajnie jak byś się zagłębił, bo ta część też mi się nie podoba =)

Ogólnie chodzi, żeby cały timer (after) mógł być wywołany w dowolnym
momencie, ale mimo tego ustawił właściwy czas aby poprawnie odliczał.
-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC

Derek Kuliński / takeda wrote:
> Fakt to z pętlą foreach raczej będzie działało dłużej... Ale jeżeli wykona
> się w mniej niż sekundę to powinno być ok... Z drugiej strony, poniższa
> funkcja skoryguje czas (o ile działa poprawnie).
> 

Hehe, ja tu mówiłem raczej o rzędach wielkości milisekund :)


> Fajnie jak byś się zagłębił, bo ta część też mi się nie podoba =)

Tzn. co? [adjust_timer]? Co Ci się tam nie podoba?

> Ogólnie chodzi, żeby cały timer (after) mógł być wywołany w dowolnym
> momencie, ale mimo tego ustawił właściwy czas aby poprawnie odliczał.

Na prawdę nie mam sił rozgryzać działania całego skryptu :)

Szybkim rzutem oka zauważyłem jeszcze jedną - na prawdę drobną - 
optymalizację:

proc adjust_timer {current increment} {
	set res [expr {$current % $increment}]
	if {$res == 0} {
		set res $increment
	}
	return $res
}

można zapisać tak:

proc adjust_timer {current increment} {
	set res [expr {$current % $increment}]
	if {$res == 0} {
		return $increment
	}
	return $res
}

i w przypadku $res == 0 oszczędzimy 1 wywołane komendy :) Wiem, to 
śmieszne żeby się bawić w takie pierdółki... tak tylko piszę.

-- 
Pozdrawiam!
Googie

Googie wrote:
> 
> i w przypadku $res == 0 oszczędzimy 1 wywołane komendy :) Wiem, to
> śmieszne żeby się bawić w takie pierdółki... tak tylko piszę.
> 

   To ja jadąc tym torem (też bez zagłębiania się w całość ;-)

   Zapis:

      set now [clock seconds]
      set time_left [expr {$Config(time) - $now}]


   Powinien chyba też działać jako:

      set time_left [expr {$Config(time) - [clock seconds]}]

   
   Tu się oszczędzi komendę, tam zmienną i jakoś to wszystko razem... :-)

   zdrawiam
-- 
Mirosław Kosmala
miroslaw.kosmala(małpa)trilowcy.org

Derek Kuliński / takeda wrote:
[...]

No dobra, przeglądnąłem kod nieco dokładniej. Mam zastrzeżenie co do 
procedury [koncowka]. Mianowicie nie dziala ona poprawnie np dla liczb: 
22...24, 32...34, 42..44, itd. Będzie pisało "22 godzin", lub "34 
godzin", a powinno być "22 godziny" i "34 godziny", ale już "35 godzin" 
, oraz "30 godzin" i "31 godzin".

Nie jestem pewien (nie testowałem), ale chyba tak było by dobrze:

proc koncowka {liczba} {
	return [expr {$liczba == 1 ? "a" : \
		( ($liczba%10) < 5 && ($liczba%10) > 1 ? "y" : "")}]
}

-- 
Pozdrawiam!
Googie

On Fri, 30 Dec 2005 14:18:01 +0100, Mirosław Kosmala wrote:

>> i w przypadku $res == 0 oszczędzimy 1 wywołane komendy :) Wiem, to
>> śmieszne żeby się bawić w takie pierdółki... tak tylko piszę.
>    To ja jadąc tym torem (też bez zagłębiania się w całość ;-)
> 
>    Zapis:
> 
>       set now [clock seconds]
>       set time_left [expr {$Config(time) - $now}]
> 
>    Powinien chyba też działać jako:
> 
>       set time_left [expr {$Config(time) - [clock seconds]}]
> 
>    
>    Tu się oszczędzi komendę, tam zmienną i jakoś to wszystko razem... :-)

Ten skrypt pasowało by napisać całkowicie od nowa... ale już czasu za
bardzo nie ma =) Może przy odliczaniu 2007 =)

Dziękuję wszystkim za pomoc =)

Nie rozumiem, dlaczego osoby, które odsyłałem na tą grupę coś nieza bardzo
chcą tutaj zadawać tcl'owych pytań...

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC

On Fri, 30 Dec 2005 08:20:11 +0100, Googie wrote:

> Derek Kuliński / takeda wrote:
>> Fakt to z pętlą foreach raczej będzie działało dłużej... Ale jeżeli wykona
>> się w mniej niż sekundę to powinno być ok... Z drugiej strony, poniższa
>> funkcja skoryguje czas (o ile działa poprawnie).
> Hehe, ja tu mówiłem raczej o rzędach wielkości milisekund :)

Milisekundy w sumie też mają wpływ, w sumie dlatego odejmuję 499 przy
poleceniu after, pewnie powinienem chyba zmierzyć czas wykonywania
polecenia timer i odjąć tyle ile mi wyjdzie.

W każdym razie jak nic nie odejmę to timer zawsze spóźnia się o sekundę...

>> Fajnie jak byś się zagłębił, bo ta część też mi się nie podoba =)
> Tzn. co? [adjust_timer]? Co Ci się tam nie podoba?

Wiesz, jak to pisałem to byłem pół przytomny (grypa czy coś mnie chwyciła)
przy tej funkcji bardziej zgadywałem co trzeba zrobić =)

>> Ogólnie chodzi, żeby cały timer (after) mógł być wywołany w dowolnym
>> momencie, ale mimo tego ustawił właściwy czas aby poprawnie odliczał.
> Na prawdę nie mam sił rozgryzać działania całego skryptu :)
> Szybkim rzutem oka zauważyłem jeszcze jedną - na prawdę drobną - 
> optymalizację:
> 
> proc adjust_timer {current increment} {
> 	set res [expr {$current % $increment}]
> 	if {$res == 0} {
> 		set res $increment
> 	}
> 	return $res
> }
> 
> można zapisać tak:
> 
> proc adjust_timer {current increment} {
> 	set res [expr {$current % $increment}]
> 	if {$res == 0} {
> 		return $increment
> 	}
> 	return $res
> }
> 
> i w przypadku $res == 0 oszczędzimy 1 wywołane komendy :) Wiem, to 
> śmieszne żeby się bawić w takie pierdółki... tak tylko piszę.

Czemu nie? Czym krócej wywoływane jest to całe timer, tym chyba mniej
trzeba skorygować czas (jak to napisałem na samym początku)...

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC

On Fri, 30 Dec 2005 14:33:50 +0100, Googie wrote:

> Nie jestem pewien (nie testowałem), ale chyba tak było by dobrze:
> 
> proc koncowka {liczba} {
> 	return [expr {$liczba == 1 ? "a" : \
> 		( ($liczba%10) < 5 && ($liczba%10) > 1 ? "y" : "")}]
> }

Dzięki, faktycznie zapomniałem o wyższych liczbach =)

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC

Derek Kuliński / takeda wrote:
> Nie rozumiem, dlaczego osoby, które odsyłałem na tą grupę coś nieza bardzo
> chcą tutaj zadawać tcl'owych pytań...
> 

Też się zastanawiam skąd ta niechęć... Ja również wiele osób dręczących 
mnie o pomoc z Tcl odsyłałem tutaj, ale grzecznie dziękowały i na tym 
się kończyło :/ Co jest z tymi ludźmi?!

-- 
Pozdrawiam!
Googie

On Mon, 02 Jan 2006 08:40:00 +0100, Googie wrote:

>> Nie rozumiem, dlaczego osoby, które odsyłałem na tą grupę coś nieza bardzo
>> chcą tutaj zadawać tcl'owych pytań...
> Też się zastanawiam skąd ta niechęć... Ja również wiele osób dręczących 
> mnie o pomoc z Tcl odsyłałem tutaj, ale grzecznie dziękowały i na tym 
> się kończyło :/ Co jest z tymi ludźmi?!

Najprawdopodobniej są za leniwi (na GG czy IRC jest b. prosto zapytać)...

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC