如何在不使用列表的情况下在Tcl中实现堆栈？

Question

我知道使用列表实现堆栈和队列非常容易。 但是，如何在不使用列表和列表操作函数（例如lappend和lindex情况下实现堆栈？

我在Synopsys中使用Tcl，因此堆栈中的所有项目都是电路的一部分，例如单元，端口，网络...，它们是synopsys中的集合，无法直接通过列表函数进行处理。

Answer 1

Tcl标准库中有struct::stack 。 当然，该包是使用列表实现的。

也可以将堆栈内容存储在定界的字符串中，并添加到/截去字符串的末尾。

或者，我认为将堆栈内容编码为整数，然后使用乘法，除法和模块操作进行压入和弹出操作（但是值跨度必须小于最小的项）。 不。 原来整数乘法是可交换的，谁知道呢？

Answer 2

正确的数据结构是一个列表。 但是，您可以使用数组来制作一个。 以下是经典操作：

• init以建立一个空的堆栈
• push将值添加到堆栈
• 报告堆栈中元素数量的size
• top以查看堆栈上的最高值
• pop以删除并返回堆栈上的最高值

proc init {stackVar} {
    upvar 1 $stackVar stk
    unset -nocomplain stk
    set stk(top) -1
}
proc push {stackVar value} {
    upvar 1 $stackVar stk
    set stk([incr stk(top)]) $value
    return
}
proc size {stackVar} {
    upvar 1 $stackVar stk
    return [expr {$stk(top) + 1}]
}
proc top {stackVar} {
    upvar 1 $stackVar stk
    return $stk($stk(top))
}
proc pop {stackVar} {
    upvar 1 $stackVar stk
    set val $stk($stk(top))
    unset stk($stk(top))
    incr stk(top) -1
    return $val
}

没有使用清单。 但这比基于列表的良好实现要重得多。