Anonymous user
Narcissistic decimal number: Difference between revisions
m
→{{header|REXX}}: changed the wording on a comment to reflect the statement.
m (→{{header|C}}: remove redundant check) |
m (→{{header|REXX}}: changed the wording on a comment to reflect the statement.) |
||
Line 178:
=={{header|REXX}}==
===version 1===
<lang rexx>/*REXX program to generate and display a number of narcissistic numbers.*/
numeric digits 39 /*be able to handle the largest #*/
Line 184 ⟶ 185:
#=0 /*number of narcissistic # so far*/
do j=1 until #==N; L=length(j) /*get the length of the J number.*/
s=left(j,1)**L /*
/* [↑] calculate partial sum. */
do k=2 for L-1 /*perform for each digit in J. */
| |||