递归 Tcl 过程不返回任何内容

Question

下面的代码应该为给定的数字返回阶乘 Tcl 脚本使用递归过程作为输入参数。

if {$argc !=1} {
        puts stderr "Error! ns called with wrong number of arguments! ($argc)"
        exit 1
} else {
        set f [lindex $argv 0]
}


proc Fact {x} {
        if { $x==1 } {
                return 1
        }
        return  $x * Fact ($x-1)
}
set res [Fact $f]
puts "Factorial of $f is $res"

但是，它没有给出如下所示的输出：
$ tclsh fact.tcl 5 Factorial of 5 is

我也尝试过return [expr $x * Fact ($x-1)]，但它会导致解析错误。我不知道我是否想念 Tcl 中的递归调用。

Answer 1

如果您使用 tcl::mathfunc 命名空间，事情会变得更加整洁：那么您的过程可以在 expr 中使用

% proc ::tcl::mathfunc::fact {n} {
    expr {$n == 1 ? 1 : $n*fact($n-1)}
}
% fact 3
invalid command name "fact"
% expr {fact(3)}
6
% expr {fact(6)}
720