没有显式返回的递归 TCL proc

Question

我正在编写一个简单的“proc”来计算阶乘。我想了解为什么我的函数在没有 return 语句的情况下不起作用。

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

    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

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

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

我预计如果没有明确的“返回”，该函数也应该返回 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}                                                                                                                                                           
}