tcl - 除算演算子は結果を生成していません

Question

TCLで問題が発生しました。2 つの整数変数を加算および乗算できます。これはうまくいきます：

set hdsuc [expr {$hdsuccess * $hdcount}]
set hdsuc [expr {$hdsuccess + $hdcount}]

しかし、なぜか分割できません。以下はまったく機能しません。

set hdsuc [expr {$hdsuccess / $hdcount}]

上記は 0 を返します。設定に問題はありますか?

Answer 1

整数除算を行っています。引数の 1 つを double に変換する必要があります。例えば：

 set hdsuc [expr {double($hdsuccess) / $hdcount}]