Pi: Difference between revisions
Content added Content deleted
No edit summary |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 328: | Line 328: | ||
3141592653589793238462643383279502 |
3141592653589793238462643383279502 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol> |
|||
q: 1 |
|||
r: 0 |
|||
t: 1 |
|||
k: 1 |
|||
n: 3 |
|||
l: 3 |
|||
dotWritten: false |
|||
while [true][ |
|||
if? (n*t) > (4*q)+r-t [ |
|||
prints n |
|||
unless dotWritten [ |
|||
prints "." |
|||
dotWritten: true |
|||
] |
|||
nr: 10*(r - n*t) |
|||
n: ((10*(r + 3*q)) / t) - 10*n |
|||
q: q*10 |
|||
r: nr |
|||
] |
|||
else [ |
|||
nr: (r + 2*q) * l |
|||
nn: ((q*(2 + 7*k)) + r*l) / (t*l) |
|||
q: q*k |
|||
t: t*l |
|||
l: l+2 |
|||
k: k+1 |
|||
n: nn |
|||
r: nr |
|||
] |
|||
]</lang> |
|||
{{out}} |
|||
<pre>3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989380952572010654858632788659361533818279682303019520353018529689957736225994138912497217752834791315155748572424541506959508295331168617278558890750983817546374649393192550604009277016711390098488240128583616035637076601047101819429555961989467678374494482553797747268471040475346462080466842590694912933136770289891521047521620569660240580381501935112533824300355876402474964732639141992726042699227967823547816360093417216412199245863150302861829745557067498385054945885869269956909272107975093029553211653449...</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |