Narcissistic decimal number: Difference between revisions
→{{header|J}}: Add J
m (→{{header|REXX}}: removed the programming note as there isn't a need for it since the description of a narcissistic number was corrected.) |
(→{{header|J}}: Add J) |
||
Line 121:
With LDC2 compiler prints the same output in less than 0.3 seconds.
=={{header|J}}==
<lang j>getDigits=: "."0@": NB. get digits from number
isNarc=: (= +/@(] ^ #)@getDigits)"0 NB. test numbers for Narcissism</lang>
'''Example Usage'''
<lang j> I. isNarc i.1e7 NB. first 25 Narcissistic numbers
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</lang>
=={{header|Perl 6}}==
Here is a straightforward, naive implementation. It works but takes ages.
| |||