TCL练习4：递归和return

最新推荐文章于 2024-09-23 22:18:20 发布

小苍蝇别闹

最新推荐文章于 2024-09-23 22:18:20 发布

阅读量1.8k

点赞数 1

分类专栏： TCL学习文章标签：递归 TCL 阶乘 return

本文链接：https://blog.youkuaiyun.com/yinyeyy/article/details/115480220

版权

TCL学习专栏收录该内容

8 篇文章

订阅专栏

这篇博客探讨了如何使用TCL语言通过递归方式实现阶乘计算，并讲解了return语句在错误处理和返回计算结果中的应用。文中通过示例展示了如何判断输入是否为整数，以及如何进行表达式求值。此外，还强调了TCL中字符串判断和表达式处理的细节。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

练习递归实现阶乘计算以及return的使用方法。


proc recurrence { n } {
    if { ![string is integer $n] } {
        return -code error "This is not an integer!"
    }

    if { $n<=2 } {
        return $n
    } else {
        set val [expr $n*[recurrence [expr $n-1]]]
    }

    return $val
}

以上程序需要注意：

1. return可返回一个值，同时也可以返回错误代码和错误信息。本例练习了上述两种简单用法，如果返回错误及其错误信息，需要使用-code error。

2. TCL中如果要进行表达式求值，需要使用expr，否则表达式会被当作字符串处理。

set x 3

puts $x-1

此时$x表示变量的值，输出是3-1。

set x 3

puts [expr $x-1]

此时puts输出2。

3. 通过string is *可以判断string是否可被识别为指定类型，*可以为integer、boolean、ascii、alpha、alnum、double、graph、print、list、punct、upper、lower、xdigit、wideinteger、wordchar、false、true等等。