diff options
Diffstat (limited to '0006')
| -rw-r--r-- | 0006/main.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/0006/main.tcl b/0006/main.tcl new file mode 100644 index 0000000..cf8ff16 --- /dev/null +++ b/0006/main.tcl @@ -0,0 +1,21 @@ +proc square {x} { + return [expr {$x * $x}] +} + +proc sum_of {x} { + set result 0 + for {set i 1} {$i <= $x} {incr i} { + set result [expr {$result + $i}] + } + return $result +} + +proc sum_of_square {x} { + set result 0 + for {set i 1} {$i <= $x} {incr i} { + set result [expr {$result + [square $i]}] + } + return $result +} + +puts [expr {[square [sum_of 100]] - [sum_of_square 100]}] |