fix lmul
This commit is contained in:
父節點
484c0744fb
當前提交
395ad666c8
@ -12,7 +12,7 @@ proc ladd {list} {
|
||||
|
||||
proc lmul {list} {
|
||||
set p 1
|
||||
foreach x $list { set p [eval {$p * $x}] }
|
||||
foreach x $list { set p [expr {$p * $x}] }
|
||||
return $p
|
||||
}
|
||||
|
||||
|
載入中…
x
新增問題並參考
Block a user