tree - 在 tcl 中创建树

Question

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

struct tree{
    tree *treelink;
}

我希望能够在不使用 OTcl 的情况下创建树。有可能吗？怎么做？

Answer 1

你很幸运。大约一周前，我为Rosetta Code写了一篇。代码足够长，我不会在这里重复，但请随时接受并适应。我不会在生产中使用它。数组和字典提供相同的关键抽象操作（插入、删除、查找、更新、枚举），并且与它们的内置实现一起工作得很好。