From 05b6011d5b710f6ae93694f7af938def559f9ed2 Mon Sep 17 00:00:00 2001
From: Mistivia <i@mistivia.com>
Date: Sat, 14 Dec 2024 22:25:37 +0800
Subject: solve 6

---
 0006/main.tcl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 0006/main.tcl

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]}]
-- 
cgit v1.0