Almkvist-Giullera formula for pi: Difference between revisions
Content added Content deleted
(→{{header|dc}}: Add implementation.) |
m (→{{header|dc}}) |
||
Line 249: | Line 249: | ||
[[ ]n li 1 + si lw li <T]sT |
[[ ]n li 1 + si lw li <T]sT |
||
[* main loop: print values for first 10 terms *]sz |
|||
0 sj |
0 sj |
||
[ |
[ |
||
Line 258: | Line 259: | ||
] sM |
] sM |
||
lMx |
lMx |
||
[]p |
[]p |
||
[* print resulting value of pi to 70 places *]sz |
|||
99k 52 lPx 70k 1 / p</lang> |
99k 52 lPx 70k 1 / p</lang> |
||
Line 276: | Line 280: | ||
164 |
164 |
||
</pre> |
</pre> |
||
=={{header|Erlang}}== |
=={{header|Erlang}}== |