Data commit

Task/Humble-numbers/Tcl/humble-numbers-1.tcl

@@ -0,0 +1,11 @@
+proc humble? x {
+   foreach f {2 3 5 7} {
+      while {$x % $f == 0} {set x [expr {$x / $f}]}
+   }
+   return [expr {$x == 1}]
+}
+set t1 {}
+for {set i 1} {[llength $t1] < 50} {incr i} {
+   if [humble? $i] {lappend t1 $i}
+}
+puts $t1

Task/Humble-numbers/Tcl/humble-numbers-2.tcl

@@ -0,0 +1,12 @@
+proc task2 {nmax} {
+    puts "Distribution of digit length for the first $nmax humble numbers"
+    set nHumble 0
+    for {set i 1} {$nHumble < $nmax} {incr i} {
+	if {[humble? $i]} {
+	    incr nHumble
+	    incr N([string length $i])
+	}
+    }
+    parray N
+}
+task2 4096