[VA] SRC #009 - Pi Day 2021 Special

[John Keith]

Thanks, robve, nice to see the algorithm expressed in so many languages. For completeness here is an RPL version:

\<< 2 \v/ DUP 2 /
DO SWAP 2 + \v/ SWAP OVER * 2 /
UNTIL OVER 2 \>=
END SWAP DROP 2 SWAP /
\>>

It gets the result 3.1415926536 after 19 iterations. Takes about 1.2 seconds on an HP-28S.