tcl - TCL の階乗

Question

私はTCLを初めて使用するので、助けが必要です。

任意の数値 (10 とする) の階乗、平方根、平方根、立方体、立方根のプログラムを作成する必要があります。キーを使用しない例: sqrt.

ありがとうございました。

Answer 1

**これらの操作のほとんどは、オペレーターで実行できます。

set x 7
set square [expr { $x ** 2 }]
set square_root [expr { $x ** (1.0 / 2) }]
set cube [expr { $x ** 3 }]
set cube_root [expr { $x ** (1.0 / 3) }]

階乗はさまざまな方法で計算できます。

Answer 2

factorial の再帰的な実装:

proc fac {n} {
    if { $n == 0 } {
        return 1
    } else {
        return [expr {$n*[fac [expr {$n-1}]]}]
    }
}

そして反復バージョン：

proc fac {n} {
    set result 1
    for { set i 1 } { $i <= $n } { incr i } {
        set result [expr {$result * $i}]
    }
    return $result
}