AvlTreeDemo.borg

{
    load("examples/AvlTree.borg");
    ` creeeren avl-tree
    newcell(var,val)::[var,val];
    changevalue(cell, newvalue):: cell[2] := newvalue;    
    comparecell(c1,c2)::
    {
        if (text(c1[1])1]), 1,
        if (text(c1[1])=text(c2[1]), 0, -1))
    };
    printcell(c)::text(c[1])+" = "+text(c[2]);
    searchValue(avltree, val):: avltree.Search(val);

    a:MakeAvlTree(comparecell,printcell);
    ` toevoegen elementen
    a.Add(newcell("alfa",100));
    a.Add(newcell("beta","schaap"));
    a.Add(newcell("gamma","goblin"));
    a.Add(newcell("theta","zeepkieken"));
    ` printen van de fucking tree
    a.Print();
    display("--------------------------------------------"+eoln);
    ` zoeken van een element + aanpassen value
    c:a.Search(["beta"]);
    changevalue(c, "geit");
`    c[2]:="geit";
    a.Print()
}