关注Tcl/Tk语言的朋友请进

QUOTE:

原帖由 "eloelo" 发表：
Tcl/Tk中文网
http://tcltk.126.com
介绍Tcl/Tk语言的基本知识，汇集大量关于
Tcl/Tk的中文原创文章，英文翻译文档，开
设有Tcl/Tk中文网论坛。
-----   


    这个网站的前身是我大学毕业设计时，做的毕?.........

CODE:

#!/usr/bin/env tclsh

# sums.tcl by Dr. I. for CS 101 during Fall, 1999
# This script computes the sum of the positive and
#   negative numbers entered
set sumOfPositives 0
set sumOfNegatives 0
puts stdout "Enter a number (0 to quit)"
gets stdin number
while {$number != 0} {
   if {$number >; 0} {
      set sumOfPositives [expr $sumOfPositives + $number]
   }  else  {
      set sumOfNegatives [expr $sumOfNegatives + $number]
   }
   
   puts stdout "Enter another number (0 to quit)"
   gets stdin number
}
puts stdout "The sum of the positives is $sumOfPositives"
puts stdout "The sum of the negatives is $sumOfNegatives"