Is this as optimized as this radical simplifier gets?

Forum Attachments

Summary:

I've simplified it as much as I can, but can it get any smaller?

Is this as optimized as this radical simplifier gets?

Zorianak 03 Dec 2019 19:25

PROGRAM:XROOTOFθ
:ClrHome
:Disp "ˣ√θ
:Prompt X,θ
:round(Xˣ√θ,0→N
:If not(N
:Return
:While fPart(θ/N^X
:DS<(N,2
:End
:ClrHome
:Disp "Nˣ√θ","N=",N,"θ=
:θ/N^X→θ

Just in case anyone was wondering about the last line's "→θ", that's so it actually stores θ as θ in case the user wants to use θ later

---

I try and be like my calculator programs, as concise as I can.