在tcl中创建树

Question

我想在tcl中创建一个AVL树。我读到，在tcl中，我们不能有像C中那样包含自身引用的结构。

struct tree{
    tree *treelink;
}

我希望能够在不使用OTcl的情况下创建树。这是可能的吗?如何实现？

Answer 1

你真走运。大约一周前，我为Rosetta Code写了一个。这段代码足够长，我不会在这里重复它，但请随意使用它并进行调整。不过，我不会在生产中使用它。数组和字典提供相同的键抽象操作(插入、删除、查找、更新、枚举)，并与其内置实现配合良好。