TCL------递归阶乘

proc factorial temp {

    if {$temp == 1} {return 1} else {

        return [expr {$temp * [factorial [expr $temp - 1]]}]}

}

factorial 5

120

注：else里的"{}"可以不用写，但为了良好的编程规范和可读性，加上为好。