Humble numbers: Difference between revisions
Added Quackery.
(→{{header|Polyglot:PL/I and PL/M}}: Clarify notes.) |
(Added Quackery.) |
||
Line 4,757:
(9, 1767)
(10, 2381)</pre>
=={{header|Quackery}}==
Uses <code>smoothwith</code> from [[Hamming numbers#Quackery]], and <code>searchwith</code> from [[Binary search#Quackery]].
<lang Quackery> ' [ 2 3 5 7 ] smoothwith
[ -1 peek [ 10 12 ** ] constant = ]
-1 split drop
dup 50 split drop echo cr cr
12 times
[ dup 0 over size
rot 10 i^ 1+ ** searchwith <
drop split swap size echo
sp i^ 1+ echo
say "-digit humble numbers" cr ]
drop
</lang>
{{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 ]
9 1-digit humble numbers
36 2-digit humble numbers
95 3-digit humble numbers
197 4-digit humble numbers
356 5-digit humble numbers
579 6-digit humble numbers
882 7-digit humble numbers
1272 8-digit humble numbers
1767 9-digit humble numbers
2381 10-digit humble numbers
3113 11-digit humble numbers
3984 12-digit humble numbers</pre>
=={{header|Racket}}==
| |||