Narcissistic decimal number: Difference between revisions
Content added Content deleted
(→{{header|Phix}}: added faster version) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 28: | Line 28: | ||
* Wikipedia entry: [https://en.wikipedia.org/wiki/Narcissistic_number Narcissistic number]. |
* Wikipedia entry: [https://en.wikipedia.org/wiki/Narcissistic_number Narcissistic number]. |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|Python}} |
|||
<lang 11l>F narcissists(m) |
|||
[Int] result |
|||
L(digits) 0.. |
|||
V digitpowers = (0.<10).map(i -> i ^ @digits) |
|||
L(n) Int(10 ^ (digits - 1)) .< 10 ^ digits |
|||
V (div, digitpsum) = (n, 0) |
|||
L div != 0 |
|||
(div, V mod) = divmod(div, 10) |
|||
digitpsum += digitpowers[mod] |
|||
I n == digitpsum |
|||
result [+]= n |
|||
I result.len == m |
|||
R result |
|||
L(n) narcissists(25) |
|||
print(n, end' ‘ ’) |
|||
I (L.index + 1) % 5 == 0 |
|||
print()</lang> |
|||
{{out}} |
|||
<pre> |
|||
0 1 2 3 4 |
|||
5 6 7 8 9 |
|||
153 370 371 407 1634 |
|||
8208 9474 54748 92727 93084 |
|||
548834 1741725 4210818 9800817 9926315 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |