Stoneham's series

[Gerson W. Barbosa]

(06-09-2024 11:04 PM)Gerson W. Barbosa Wrote:  Except for the second program, but I’ll leave that as an exercise to the reader :-)

No takers?

Code:


00 { 72-Byte Prgm }
01▸LBL "SWπ"
02 8
03 0
04 8
05 RCL× ST T
06 RCL+ ST Z
07▸LBL 00
08 R↑
09 NOT
10 +/-
11 STO+ ST X
12 DSE ST X
13 STO× ST X
14 STO÷ ST T
15 DSE ST X
16 STO× ST T
17 X<> ST L
18 RCL+ ST X
19 STO× ST X
20 DSE ST X
21 X<>Y
22 STO+ ST Z
23 X<> ST Z
24 STO÷ ST Y
25 X<> ST L
26 R↓
27 X<>Y
28 DSE ST T
29 GTO 00
30 +
31 1
32 +
33 1/X
34 +/-
35 0.5
36 +
37 ×
38 END

15 XEQ SWπ ->

3.14159265358979323846264338327950(1)

This lacks some optimization, though.