Smith numbers: Difference between revisions
Added 11l
Not a robot (talk | contribs) (Add MAD) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 26:
* from The Prime pages: [[http://primes.utm.edu/glossary/xpage/SmithNumber.html Smith numbers]].
<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F factors(=n)
[Int] rt
V f = 2
I n == 1
rt.append(1)
E
L
I 0 == (n % f)
rt.append(f)
n I/= f
I n == 1
R rt
E
f++
R rt
F sum_digits(=n)
V sum = 0
L n > 0
V m = n % 10
sum += m
n -= m
n I/= 10
R sum
F add_all_digits(lst)
V sum = 0
L(i) 0 .< lst.len
sum += sum_digits(lst[i])
R sum
F list_smith_numbers(cnt)
[Int] r
L(i) 4 .< cnt
V fac = factors(i)
I fac.len > 1
I sum_digits(i) == add_all_digits(fac)
r.append(i)
R r
V sn = list_smith_numbers(10'000)
print(‘Count of Smith Numbers below 10k: ’sn.len)
print()
print(‘First 15 Smith Numbers:’)
print_elements(sn[0.<15])
print()
print(‘Last 12 Smith Numbers below 10000:’)
print_elements(sn[(len)-12..])</lang>
{{out}}
<pre>
Count of Smith Numbers below 10k: 376
First 15 Smith Numbers:
4 22 27 58 85 94 121 166 202 265 274 319 346 355 378
Last 12 Smith Numbers below 10000:
9778 9840 9843 9849 9861 9880 9895 9924 9942 9968 9975 9985
</pre>
=={{header|360 Assembly}}==
| |||