Munchausen numbers: Difference between revisions
→{{header|360 Assembly}}: Section added
m (→{{header|Visual Basic}}: minor tweaks, reducing execution time by ~25%) |
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
||
Line 14:
:* The OEIS entry: [[oeis:A046253| A046253]]
:* The Wikipedia entry: [[wp:Perfect_digit-to-digit_invariant| Perfect digit-to-digit invariant, redirected from ''Munchausen Number'']]
=={{header|360 Assembly}}==
<lang 360asm>* Munchausen numbers 16/03/2019
MUNCHAU CSECT
USING MUNCHAU,R12 base register
LR R12,R15 set addressability
L R3,=F'5000' for do i=1 to 5000
LA R6,1 i=1
LOOPI SR R10,R10 s=0
LR R0,R6 ii=i
LA R11,4 for do j=1 to 4
LA R7,P10 j=1
LOOPJ L R8,0(R7) d=p10(j)
LR R4,R0 ii
SRDA R4,32 ~
DR R4,R8 (n,r)=ii/d
SLA R5,2 ~
L R1,POW(R5) pow(n+1)
AR R10,R1 s=s+pow(n+1)
LR R0,R4 ii=r
LA R7,4(R7) j++
BCT R11,LOOPJ enddo j
CR R10,R6 if s=i
BNE SKIP then
XDECO R6,PG edit i
XPRNT PG,L'PG print i
SKIP LA R6,1(R6) i++
BCT R3,LOOPI enddo i
BR R14 return to caller
POW DC F'0',F'1',F'4',F'27',F'256',F'3125',4F'0'
P10 DC F'1000',F'100',F'10',F'1'
PG DC CL12' ' buffer
REGEQU
END MUNCHAU </lang>
{{out}}
<pre>
1
3435
</pre>
=={{header|ALGOL 68}}==
| |||