Smith numbers: Difference between revisions
Added Quackery.
imported>Katsumi (→Delphi) |
(Added Quackery.) |
||
Line 4,239:
Last 12 Smith Numbers below 10000:
9778 9840 9843 9849 9861 9880 9895 9924 9942 9968 9975 9985</pre>
=={{header|Quackery}}==
<code>primefactors</code> is defined at [[Prime decomposition#Quackery]].
<syntaxhighlight lang="Quackery"> [ 0
[ over while
swap 10 /mod
rot + again ]
nip ] is digitsum ( n --> n )
[]
10000 times
[ i^ primefactors
dup size 2 <
iff drop done
0 swap witheach
[ digitsum + ]
i^ digitsum =
if [ i^ join ] ]
say "There are "
dup size echo say " Smith numbers less than 10000." cr cr
10 split swap
say "They start: " echo cr
-10 split
say "...and end: " echo cr
drop</syntaxhighlight>
{{out}}
<pre>There are 376 Smith numbers less than 10000.
They start: [ 4 22 27 58 85 94 121 166 202 265 ]
...and end: [ 9843 9849 9861 9880 9895 9924 9942 9968 9975 9985 ]
</pre>
=={{header|Racket}}==
| |||