{\rtf1\ansi\deff0
{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue255;\red255\green0\blue255;}
\fs24\{
\par\tab load(\cf4 "examples/AvlTree.borg"\cf0 );
\par\tab\cf2 ` creeeren avl-tree
\par\cf0\tab\cf1 newcell(var,val)\cf0 ::[var,val];
\par\tab\cf1 changevalue(cell, newvalue)\cf0 :: cell[\cf4 2\cf0 ] := newvalue;\tab
\par\tab\cf1 comparecell(c1,c2)\cf0 ::
\par\tab\{
\par\tab\tab\b if\b0  (text(c1[\cf4 1\cf0 ])<text(c2[\cf4 1\cf0 ]), \cf4 1\cf0 ,
\par\tab\tab\b if\b0  (text(c1[\cf4 1\cf0 ])=text(c2[\cf4 1\cf0 ]), \cf4 0\cf0 , -\cf4 1\cf0 ))
\par\tab\};
\par\tab\cf1 printcell(c)\cf0 ::text(c[\cf4 1\cf0 ])+\cf4 " = "\cf0 +text(c[\cf4 2\cf0 ]);
\par\tab\cf1 searchValue(avltree, val)\cf0 :: avltree.Search(val);
\par
\par\tab\cf3 a\cf0 :MakeAvlTree(comparecell,printcell);
\par\tab\cf2 ` toevoegen elementen
\par\cf0\tab a.Add(newcell(\cf4 "alfa"\cf0 ,\cf4 100\cf0 ));
\par\tab a.Add(newcell(\cf4 "beta"\cf0 ,\cf4 "schaap"\cf0 ));
\par\tab a.Add(newcell(\cf4 "gamma"\cf0 ,\cf4 "goblin"\cf0 ));
\par\tab a.Add(newcell(\cf4 "theta"\cf0 ,\cf4 "zeepkieken"\cf0 ));
\par\tab\cf2 ` printen van de fucking tree
\par\cf0\tab a.Print();
\par\tab display(\cf4 "--------------------------------------------"\cf0 +\cf4 eoln\cf0 );
\par\tab\cf2 ` zoeken van een element + aanpassen value
\par\cf0\tab\cf3 c\cf0 :a.Search(["beta"]);
\par\tab changevalue(c, \cf4 "geit"\cf0 );
\par\cf2 `\tab c[2]:="geit";
\par\cf0\tab a.Print()
\par\}
\par
}