Posted to tcl by rmax at Wed May 13 14:09:41 GMT 2015view raw

  1. proc 100s {} {
  2. set N [join {1 2 3 4 5 6 7 8 9} "{+,-,}"]
  3. set x [exec sh -c [list echo $N]]
  4. foreach i $x {
  5. if {[expr $i] == 100} {
  6. lappend result $i
  7. }
  8. }
  9. return $result
  10. }
  11.