Tcl： 奇數和偶數

#!/usr/bin/env tclsh

puts -nonewline "Please input a number: "
flush stdout
gets stdin var
 
if { [ regexp {^[0-9]+$} $var ] == 0} {
    puts "It is not a number!!!"
    exit
}

if { [expr $var % 2] == 0} {
    puts "It is even!!!"
} else {
    puts "It is odd!!!"
}

也是一個很簡單的練習，只是使用正規表示式判斷是否為數字。