tcl [3]: 设置变量，数学运算，强制类型转换

# <2> 设置变量
set X "this is a string, Y=:"
set Y 1.23
puts $X
puts $Y
puts "**********"
puts "$X $Y"

# <3> 数学计算
# [expr {$a - $b}]
# >>>>> eq ne in ni <<<<<<
# > compare two strings for equality (eq) or inequality (ne). and two operators for checking 
# > if a string is contained in a list (in) or not (ni). These operators all return 1 (true) or 0 (false).
# > Using these operators ensures that 
# > the operands are regarded exclusively as strings (and lists), not as possible numbers:
# >>>>>>>>>>>>>>>>>>>>>>>>
set X 100
set Y 256

set Z [expr {$Y + $X}]
set Z_LABEL "$Y plus $X is "

puts "$Z_LABEL $Z"
puts "The square root of $Y is [expr { sqrt($Y) }]\n"

puts "Because of the precedence rules \"5 + -3 * 4\"   is: [expr {-3 * 4 + 5}]"
puts "Because of the parentheses