无显式返回的递归TCL过程

Question

我正在编写一个简单的“proc”来计算阶乘。我想了解为什么我的函数没有返回语句就无法工作。

根据TCL文档，没有显式“return”定义的函数返回其主体中最后执行的命令的值。

    proc fac { n } {
       if { $n == 1 } {
         return 1
       } 
    puts $n
    set n [expr {$n - 1}]
    return [expr {[fac $n ] * $n}]                                                                                                                                                            
    }
    puts [fac 5] # ans 24

当“返回”被删除时，我收到以下错误消息：

    invalid command name "1"
      while executing
     "[expr {[fac $n ] * $n}] "
        (procedure "fac" line 7)
        invoked from within

我希望如果没有显式的“return”，函数也应该返回24。

Answer 1

你的期望是正确的。但是在最后一行中，在expr程序的周围有方括号。它是：

[expr {[fac $n] * $n}]

这对解释器来说意味着：1）使用给定参数执行expr过程；2）执行expr过程的结果。因此，解释器尝试执行不存在的过程1并且您收到错误。

要修复此错误，只需从最后一行中删除方括号：

proc fac { n } {
   if { $n == 1 } {
     return 1
   } 
   puts $n
   set n [expr {$n - 1}]
   expr {[fac $n ] * $n}                                                                                                                                                           
}