Humble numbers: Difference between revisions
Content added Content deleted
(→{{header|Tcl}}: for now, only task 1) |
|||
Line 4,775: | Line 4,775: | ||
14,927 have 19 digits |
14,927 have 19 digits |
||
17,323 have 20 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> |
</pre> |
||