Out: x-th root of y
Apart from the FUNC 21 instruction, 42S-compatible.
Code: Select all
00 { 43-Byte Prgm }
01▸LBL "X√Y"
02 FUNC 21
03 X<>Y
04 REAL?
05 GTO 01
06 COMPLEX
07 X=0?
08 X≤Y?
09 GTO 03
10 COMPLEX
11 GTO 02
12▸LBL 01
13 X>0?
14 GTO 00
15▸LBL 02
16 +/-
17 XEQ 00
18 +/-
19 RTN
20▸LBL 03
21 COMPLEX
22▸LBL 00
23 X<>Y
24 1/X
25 Y^X
26 END