Data commit

Task/Prime-decomposition/Tcl/prime-decomposition-1.tcl

@@ -0,0 +1,16 @@
+proc factors {x} {
+    # list the prime factors of x in ascending order
+    set result [list]
+    while {$x % 2 == 0} {
+        lappend result 2
+        set x [expr {$x / 2}]
+    }
+    for {set i 3} {$i*$i <= $x} {incr i 2} {
+        while {$x % $i == 0} {
+            lappend result $i
+            set x [expr {$x / $i}]
+        }
+    }
+    if {$x != 1} {lappend result $x}
+    return $result
+}

Task/Prime-decomposition/Tcl/prime-decomposition-2.tcl

@@ -0,0 +1,5 @@
+foreach m {2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59} {
+    set n [expr {2**$m - 1}]
+    catch {time {set primes [factors $n]} 1} tm
+    puts [format "2**%02d-1 = %-18s = %-22s => %s" $m $n [join $primes *] $tm]
+}