5 Smallest Multiple

1 files changed, 25 insertions, 0 deletions

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