Posted to tcl by hypnotoad at Fri Dec 14 17:26:44 GMT 2018view raw

  1. foreach {const val} {
  2. pi 3.14159265358979323846
  3. e 2.71828182845904523536
  4. } {
  5. proc tcl::mathfunc::$const {} [list return $val]
  6. }