2012-09-08

遞迴練習

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

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

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

沒有留言: