Calculate 200^300 with SOLVE

[tomisan]

I use this short program on my 42S to get an approximate answer for exponentiation of large arguments, e.g. 200^300 = 2.037x10^690

00 {15-Byte Prgm}
01 LBL "~Y↑X"
02 X<>Y
03 LOG
04 x
05 IP
06 LASTX
07 FP
08 10↑X
09 END

200 <ENTER> 300 <XEQ> ~Y↑X gives
X:2.03703597073 Y:690

Playing with my newly acquired 17BII I came up with the following SOLVE equation (works also on the 17BII+):

~Y'X:
0xL(E:IP(L(M1:LOG(Y)xX)))+
0xL(M:ALOG(FP(G(M1))))+
IF(S(MANT):MANT-G(M):EXP-G(E))=0

SOLVE is fun to use and amazingly powerful.