11-30-2015, 07:02 PM
Hi all,
I have made a little routine to know how are numbers of Armstrong, it is a curiosity arithmetic like this :
A one is when the sum of the digits of the number cube is egal to the number, as example :
1 is because, of course, 1^3 is 1,
153 is too because 1^3+5^3+3^ is 153.
In my knowledge only is 1, 153,370,371,407. I think it is all but not sure am-I.
For cumfortable use I merged 2 routines in one. Did you notice that I use goods ideas from forum like inc x and Dieter's 'DIVMOD' as if theses was built'in functions ?
Well, I am aware that serve for nothing, but it is funy, no ?
Like say Dieter : as usual comments are welcome.
I have made a little routine to know how are numbers of Armstrong, it is a curiosity arithmetic like this :
A one is when the sum of the digits of the number cube is egal to the number, as example :
1 is because, of course, 1^3 is 1,
153 is too because 1^3+5^3+3^ is 153.
In my knowledge only is 1, 153,370,371,407. I think it is all but not sure am-I.
For cumfortable use I merged 2 routines in one. Did you notice that I use goods ideas from forum like inc x and Dieter's 'DIVMOD' as if theses was built'in functions ?
Code:
fLBL'NAR' ; stand for "Number of ARmstrong
2000 ; a limit
STO 03
0
STO 04
INC 04 ; it is 1,2,3,.....
RCL 04
XEQ'TT1'
DSZ 03 ; to not over the 2000 limit
BACK 04
END
fLBL'TT1'
FILL
EXPT
INC X
STO 01
DROP
#010
RMDR
X^3
STO+ 02
DROP
#010
IDIV
ENTER
DSZ 01
BACK 009
RCL 02
X=? T
PSE 30 ; to have time to read and note on a sheet of paper
0
STO 01
0
STO 02
END.
Well, I am aware that serve for nothing, but it is funy, no ?
Like say Dieter : as usual comments are welcome.