[VA] SRC #017 - April 1st, 2024 Spring Special

[John Keith]

Interesting challenges as always, Valentin!

I couldn't resist the last one, S(42). Here is a quick and dirty RPL program using a FOR loop as a fake DO loop with a counter.

\<< 0. 0. 99.
FOR k OVER k * 5. +
k DUP 2. * SWAP COMB 3. ^ *
2. k 12. * 4. + ^ /
OVER + DUP ROT \=/
1. 99. IFTE
STEP INV SWAP DROP
\>>

I also noticed that using the bottom part of the expression (remove the INV from the last line), a value of about 8.45 will return a number close to 1/10 of S(42).