HP-42S (Free42, DM-42) mini-challenge – Wallis Product

[Gerson W. Barbosa]

(07-04-2020 09:41 PM)JMBaillard Wrote:  Hi everyone,
here is one solution:

01 LBL "WP"
02 2
03 LBL 01
04 RCL Y
05 ST+ X
06 X^2
07 ST* Y
08 DSE X
09 /
10 DSE Y
11 GTO 01
12 END

23 bytes on free42
25 bytes on HP41

Same number of bytes, same number of steps, HP-42 only, inspired in a near-solution by former forum member Mike (Stgt):

Code:



00 { 23-Byte Prgm }
01▸LBL "WP"
02 2
03▸LBL 01
04 RCL ST Y
05 STO+ ST X
06 ACOSH
07 TANH
08 X↑2
09 ÷
10 DSE ST Y
11 GTO 01
12 END