遞迴練習

namespace path {::tcl::mathop ::tcl::mathfunc}

proc fac n {
    if {$n <= 1} {
        return 1;
    } else {
        return [+ $n [fac [- $n 1]]]
    }    
}

簡單的遞迴練習程式，為了多一些變化，所以使用了不透過 expr 的方式。