Posted to tcl by hypnotoad at Fri Dec 14 17:26:44 GMT 2018view pretty
foreach {const val} {
pi 3.14159265358979323846
e 2.71828182845904523536
} {
proc tcl::mathfunc::$const {} [list return $val]
}
foreach {const val} {
pi 3.14159265358979323846
e 2.71828182845904523536
} {
proc tcl::mathfunc::$const {} [list return $val]
}