Re: Temat akademicki

Article View: pl.comp.lang.tcl

Article #136

#136

From: Wojciech Kocjan
Date: Tue, 19 Jul 2005 08:07

33 lines
2058 bytes

Wojciech Kocjan napisał(a):
> Właśnie się koduje w C. Nie szuka optymalnej, ale w miare dobrą i robi 
> to szybko. Tylko jest minus - to trwa ok 1 sekundy na planszy 200x100 
> (0,0 do 199,99). Aha i nie przewiduje, ze planety sa okragle i mozna 
> przesmigac z prawej strony do lewej - ale i do tego dojdę.

Ok.

Kod właśnie przeszedł drobną optymalizację (duża wpadka w jednej pętli) 
i 160x80 przeszukuje mi w 0,02s (zaczyna myslec 0,2s przy 400x200, ale 
to juz szalenstwo troche - a tez zazwyczaj ktos chce sie przesunac o 
50-60 pol, co daje zabojczo krotki czas).

www.zoro2.org/_chwilowe/shortestpath.c

To jeszcze i tak mozna mocno zoptymalizowac (szybkosc kosztem 
czytelnosci), ale nie chce mi sie.

Wystarczy skompilowac i smiga.

set map [list \
     [list 1 2 3 4 5 6 7] \
     [list 4 3 2 1 3 2 1] \
     [list 2 3 1 4 5 3 2] \
     [list 4 5 6 3 2 7 1] \
     ]

set path [shortestpath::shortestpath $map 0 0 6 3]

foreach {x y} $path {puts "Krok: $x, y"}

-- 
WK

Technical Details

Message-ID: <dbicbt$ssu$1@atlantis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

References:

<dbddek$9qb$1@atlantis.news.tpi.pl> <dbej9d$4u9$1@atlantis.news.tpi.pl> <dbfhlf$qr6$1@atlantis.news.tpi.pl> <dbh1bq$md1$1@atlantis.news.tpi.pl> <dbi6nb$heo$1@atlantis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Wojciech Kocjan <mojeimie@kocjan.org>
Newsgroups: pl.comp.lang.tcl
Subject: Re: Temat akademicki
Date: Tue, 19 Jul 2005 10:07:23 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 33
Message-ID: <dbicbt$ssu$1@atlantis.news.tpi.pl>
References: <dbddek$9qb$1@atlantis.news.tpi.pl> <dbej9d$4u9$1@atlantis.news.tpi.pl> <dbfhlf$qr6$1@atlantis.news.tpi.pl> <dbh1bq$md1$1@atlantis.news.tpi.pl> <dbi6nb$heo$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: dq2.dataquest.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1121760445 29598 195.116.54.236 (19 Jul 2005 08:07:25 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Tue, 19 Jul 2005 08:07:25 +0000 (UTC)
User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)
X-Accept-Language: pl, en-us, en
In-Reply-To: <dbi6nb$heo$1@atlantis.news.tpi.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message