[HP41] Lambert function RPN; question

[Thomas Klemm]

(12-26-2022 06:45 PM)floppy Wrote:  R00 necessary because "LW" screw up the stack

Since "LW" saves the argument in register M you could also just recall it from there:

Code:

 01 LBL "TETR"
 02 ENTER^
 03 1/X
 04 Y^X
 05 LN
 06 CHS
 07 XEQ "LW"   ; function from this forum and documented on github
 08 RCL M
 09 /
 10 END

The END command serves also as RTN.