Narcissistic decimal number: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: rolled an IF statement into the DO loop UNTIL form.) |
m (→version 2: revert code to include all digits ^ to a power, including zero.) |
||
Line 232: | Line 232: | ||
@.=0 |
@.=0 |
||
do w=1 for 39 /*generate tables: digits ^ L pow*/ |
do w=1 for 39 /*generate tables: digits ^ L pow*/ |
||
do i= |
do i=0 for 10; @.w.i=i**w; end /*build table of 10 digs ^ L pow.*/ |
||
end /*w*/ /* [↑] table is of a fixed size.*/ |
end /*w*/ /* [↑] table is of a fixed size.*/ |
||
#=0 /*number of narcissistic # so far*/ |
#=0 /*number of narcissistic # so far*/ |