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

[Gerson W. Barbosa]

(07-06-2020 06:04 PM)pinkman Wrote:  I know it is off topic, but here is my attempt in RPL: only stack, no local vars, preserve stack, only 4 levels (just for fun!):

Code:


« 2 SWAP
WHILE DUP REPEAT
 DUP SQ 4 *
 ROT * LASTARG
 DROP 1 - / SWAP 1 -
END
DROP »

Not off-topic at all, since it’s still on Wallis.

67.5 bytes and (de)counting! Not that I intend to do an attempt, at least for now. On the 50g it should run faster if you use real constants: 119.17 seconds for ten thousand iterations. Should we decide to try 1E11 iterations on the real 50g to possibly get 10 correct decimal digits, we would have to wait until the Summer of 2058 before eventually getting an answer.