Humble numbers: Difference between revisions
Content added Content deleted
(→{{header|Factor}}: more efficient counting; keep track of next digit threshold instead of calling log10 on 20 million numbers) |
m (→{{header|Factor}}: show more output) |
||
Line 86:
: humble-numbers ( -- )
[ <humble-iterator> dup
[ .first50 nl ] [ drop .digit-breakdown nl ] [
"Total number of humble numbers found: " write length
commas print
] tri ] time ;
MAIN: humble-numbers</lang>
Line 179:
993,058 have 79 digits
1,030,928 have 80 digits
1,069,748 have 81 digits
1,109,528 have 82 digits
1,150,287 have 83 digits
1,192,035 have 84 digits
1,234,774 have 85 digits
1,278,527 have 86 digits
1,323,301 have 87 digits
1,369,106 have 88 digits
1,415,956 have 89 digits
1,463,862 have 90 digits
1,512,840 have 91 digits
1,562,897 have 92 digits
1,614,050 have 93 digits
1,666,302 have 94 digits
1,719,669 have 95 digits
Total number of humble numbers found:
Running time: 335.1803624581294 seconds
</pre>
| |||