array

原创于 2010-07-01 18:50:00 发布 · 293 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#null

tcl 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个使用Tcl语言实现的简单栈数据结构。通过两个过程（proc）：Push和Pop来实现栈的基本操作。Push过程将元素压入栈顶，而Pop过程则移除并返回栈顶元素。示例代码演示了栈的使用方法。

http://wiki.tcl.tk/1032

proc Push { stack value } {
        upvar $stack S
        if ![info exists S(top)] {
                set S(top) 0
        }
        set S($S(top)) $value
        incr S(top)
}
proc Pop { stack } {
        upvar $stack S
        if ![info exists S(top)] {
                return {is null}
        }
        if {$S(top) == 0} {
                return {bottom}
#               unset $S(top)
#               array unset S
#               unset $S
        } else {
                incr S(top) -1
                set x $S($S(top))
                unset S($S(top))
                return "S($S(top))=$x"
        }
}
puts [Push stack 1]
puts [Push stack 2]
puts [Push stack 3]
puts [Pop stack]
puts [Pop stack]
puts [Pop stack]
puts [Pop stack]
#puts "top =$S(top)"
puts [Pop stack]
puts "top =$S(top)"
#puts "a=$a"
#set b 1
#puts "b=$b"
#unset b
#puts "unset, b=$b"