solve 6

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]}]