The Egyptian wannabe developer/sys-admin
# Allow spaces and underscores in long number for easy reading
proc norm {num} {
if {[regexp {^(\s|\d|_)*(\.)?(\s|_)*(\d)+(\s|\d|_)*$} $num]} {
string map {_ {} \ {}} $num
} else {
error "Number: $num is not in normal form"
}
}
Example:
expr [norm 10_000_000] + [norm 100._10_100]
=> 10000100.101