blob: cf8ff16b92c1051210e906595343de6a2bbab126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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]}]
|
