如何檢查數學結果是否正確

Question

如何捕獲計算表達式，但仍然繼續處理直到完成並在腳本下方;

set vars {33 53 65t 43 word 55 d} 
foreach varList $vars { 
if {[expr {$varList/$varList}] == 1} { ;#I am stuck maths here if its not numerics string 
    set mathVar $varList 
} else { 
    set mathVar "Invalid" 
} 
} 

謝謝！

Answer 1

你會想string is integer

foreach var $vars { 
    if {[string is integer -strict $var]} { 
     set mathvar $var 
    } else { 
     puts "not an integer: $var" 
     set mathvar 0  ;# or some default value 
    } 
}