One-liner mini-challenge [HP-71B]

[Gerson W. Barbosa]

(04-14-2015 07:04 PM)Massimo Gnerucci Wrote:  The Prof is back!

Hopefully back to stay. Valentin really knows how to concoct a challenge. Furthermore, his explanations are outstanding!

Here is an HP-41 solution:

Code:


01 LBL 'SR
02 ENTER^
03 SQRT
04 STO+ X
05 ENTER^
06 1/X
07 +
08 LASTX
09 12
10 /
11 RCL Z
12 /
13 -
14 LASTX
15 16
16 /
17 RCL Z
18 X^2
19 /
20 +
21 1.460354508
22 -
   .END.

Perhaps Valentin's formula makes for a shorter program, in case anyone wants to try it.

Best regards,

Gerson.