From 7c13c97b6254ebf41d2a8293d0fd9b715d9df570 Mon Sep 17 00:00:00 2001
From: Mistivia <i@mistivia.com>
Date: Sat, 14 Dec 2024 20:34:04 +0800
Subject: 5 Smallest Multiple

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

diff --git a/0005/main.tcl b/0005/main.tcl
new file mode 100644
index 0000000..0d398a7
--- /dev/null
+++ b/0005/main.tcl
@@ -0,0 +1,25 @@
+proc gcd {a b} {
+    if {$b > $a} {
+        set t $b
+        set b $a
+        set a $t
+    }
+    while {$b != 0} {
+        set t $b
+        set b [expr {$a % $b}]
+        set a $t
+    }
+    return $a
+}
+
+proc lcm {a b} {
+    set g [gcd $a $b]
+    return [expr {$g * ($a / $g) * ($b / $g)}]
+}
+
+set result 1
+for {set i 1} {$i <= 20} {incr i} {
+    set result [lcm $result $i]
+}
+
+puts $result
-- 
cgit v1.0