Anonymous user
Humble numbers: Difference between revisions
→{{header|Tcl}}: for now, only task 1
(→{{header|Tcl}}: for now, only task 1) |
|||
Line 4,775:
14,927 have 19 digits
17,323 have 20 digits
</pre>
=={{header|Tcl}}==
<lang tcl>
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
</lang>
Task 1, more to come...
{{out}}
<pre>1 2 3 4 5 6 7 8 9 10 12 14 15 16 18 20 21 24 25 27 28 30 32 35 36 40 42 45 48 49 50 54 56 60 63 64 70 72 75 80 81 84 90 96 98 100 105 108 112 120
</pre>
| |||