🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.tcl
Article #246

Re: Optymalizacja skryptu

#246
From: Googie
Date: Fri, 30 Dec 2005 13:33
19 lines
1447 bytes
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
Technical Details
Message-ID: <dp3cgq$se0$1@srv.cyf-kr.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!feed.news.interia.pl!news.cyf-kr.edu.pl!not-for-mail
References: <spguu0moj949$.dlg@takeda.tk.invalid>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!feed.news.interia.pl!news.cyf-kr.edu.pl!not-for-mail
From: Googie <no@spam.org>
Newsgroups: pl.comp.lang.tcl
Subject: Re: Optymalizacja skryptu
Date: Fri, 30 Dec 2005 14:33:50 +0100
Organization: Academic Computer Center CYFRONET AGH
Lines: 19
Message-ID: <dp3cgq$se0$1@srv.cyf-kr.edu.pl>
References: <spguu0moj949$.dlg@takeda.tk.invalid>
NNTP-Posting-Host: ip-7-197.ists.pl
Mime-Version: 1.0
X-Trace: srv.cyf-kr.edu.pl 1135949146 29120 193.25.7.197 (30 Dec 2005 13:25:46 GMT)
X-Complaints-To: news@cyf-kr.edu.pl
NNTP-Posting-Date: Fri, 30 Dec 2005 13:25:46 +0000 (UTC)
User-Agent: Mozilla Thunderbird 1.0.6 (Windows/20050716)
X-Accept-Language: en-us, en
In-Reply-To: <spguu0moj949$.dlg@takeda.tk.invalid>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit