Diff for ''

Revision 1
Time:
2024-06-13 22:29
Revision 24
Author:
black
Time:
2024-10-26 14:59
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
# Binarni vyhledavaci strom - Prolog

<{ForumPost(poster="Anonymous", timestamp=2009-06-15 13:10:24)}>
Ahoj,
  
nevite, jak v prologu otestovat, zda-li je objekt korektni binarni vyhledavaci strom? Stromy jsou struktury t(LeftSubTree, Root, RighSubTree). Diky moc predem!
<{/ForumPost}>

<{ForumPost(poster="Him", timestamp=2009-06-15 18:12:22)}>


    %match(+V,+LftBnd,+RgtBnd)
    fit(V,LftBnd,RgtBnd):-((number(LftBnd),V>=LftBnd);(LftBnd == nInf)),((number(RgtBnd),V<RgtBnd);(RgtBnd == pInf)).
    
    %binTree(+Tree)
    binTree(t(L,V,R)):-binTree(t(L,V,R),nInf,pInf).
    binTree(nil,_,_).
    binTree(t(L,V,R),LftBnd,RgtBnd):-fit(V,LftBnd,RgtBnd),binTree(L,LftBnd,V),binTree(R,V,RgtBnd).
    

Snad to bude ono. Funguje to jednoduse tak, ze si drzim cestou v jakem rozmezi se musi hodnoty vrcholu pro jednotlive podstromy. Pokud se do stromu pridavaji stejne hodnoty, ktere ve stromu jiz jsou tak predikat pocita s tim, ze se davaji vzdy do praveho syna.
nInf ~ -oo
pInt ~ +oo
  
Dej vedet, jestli to resi tvuj problem ;-)
<{/ForumPost}>

<{ForumPost(poster="Anonymous", timestamp=2009-06-15 19:39:04)}>
Ahoj,
  
vypada to v pohode, diky moc. Mimochodem, psal si to sam nebo to odnekud je? Pokud za b, mohl bys mi prosim napsat, odkud?
<{/ForumPost}>

<{ForumPost(poster="Him", timestamp=2009-06-15 19:44:40)}>
Je to vlastní výroba. Ostatně je to nejpřímější způsob jak to napsat. To bys měl dát dohromady sám, ne? Nebo je na tom něco nejasného?
<{/ForumPost}>
 * [Suverenním vítězem pro studium informatiky je pražský matfyz](http://domaci.ihned.cz/c1-49962460-suverennim-vitezem-pro-studium-informatiky-je-prazsky-matfyz) - Hodnocení fakulty v HN
* [ČT, 19.1.2005](http://www.czech-tv.cz/program/detail.php?idec=204%20562%2024190/0030&deid=456&prisp_id=241) - Souboje robotů (reportáž z finále soutěže [Eurobot](http://eurobot.mff.cuni.cz/) 2004)
* Archeologický nález rotundy sv. Václava
    * [Historici objevili Václavovu rotundu](http://zpravy.idnes.cz/tiskni.asp?r=vedatech&c=A050926_213005_vedatech_ad)
    * [TV Nova, 27.9.2005](http://www.nova.cz/tvarchiv/?prog=TNOVINY&video=34592) - Unikatní nález v budově MFF na Malé Straně ([přímý link na video](http://mms.media2.mediacapitol.com/120/nova/2005/TNOVINY/_Unikatni_nalez_v.wmv)).