Narcissistic decimal number: Difference between revisions
Added 11l
(→{{header|Phix}}: added faster version) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 28:
* Wikipedia entry: [https://en.wikipedia.org/wiki/Narcissistic_number Narcissistic number].
<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}}==
| |||