Anonymous user
Humble numbers: Difference between revisions
→{{header|Tcl}}: added task 2 code and result
(→{{header|Tcl}}: for now, only task 1) |
(→{{header|Tcl}}: added task 2 code and result) |
||
Line 4,791:
puts $t1
</lang>
Task 1
{{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>
Task 2, took a long while due to brute force:
<lang tcl>
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
</lang>
{{out}}
<pre>~ $ time ./humble.tcl
Distribution of digit length for the first 4096 humble numbers
N(1) = 9
N(2) = 36
N(3) = 95
N(4) = 197
N(5) = 356
N(6) = 579
N(7) = 882
N(8) = 1272
N(9) = 670
real 38m11.922s
user 0m0.000s
sys 0m0.093s
</pre>
| |||