(12C) Check if two numbers is to the power of other

[Dieter]

(09-08-2018 08:00 AM)Thomas Klemm Wrote:  You should rather start with p = 1 and set n = 0.

Here is a modified program.
This time R4 is not required.

Code:

01 X≤Y?
02 X<>Y
03 STO 2
04 X<>Y
05 STO 1
06 CLX
07 STO 3
08 1
09 RCL 2
10 X≤Y?
11 GTO 19
12 1
13 STO+3
14 R↓
15 R↓
16 RCL 1
17 x
18 GTO 09
19 -
20 X=0?
21 GTO 24
22 CLX
23 GTO 00
24 RCL 2
25 RCL 3
26 RCL 1
27 1
28 GTO 00

5 [ENTER] 625 [R/S]  =>  1    [R↓] 5 [R↓] 4 [R↓] 625
5 [ENTER] 600 [R/S]  =>  0
5 [ENTER] 5 [R/S]  =>  1   [R↓] 5 [R↓] 1 [R↓] 5

Dieter