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