Continued fraction: Difference between revisions
m
→{{header|Phix}}: tidied up
Thundergnat (talk | contribs) m (Fix Perl6 -> Raku in comments) |
m (→{{header|Phix}}: tidied up) |
||
Line 1,963:
=={{header|Phix}}==
{{trans|ALGOL_68}}
<lang Phix>function continued_fraction(integer steps,
atom res = 0
for n=steps to 1 by -1 do
res :=
end for
return
end function
Line 1,983:
printf(1,"Precision: %d\n", {precision})
printf(1,"Sqr(2): %.10g\n", {continued_fraction(precision,
printf(1,"Napier: %.10g\n", {continued_fraction(precision,
printf(1,"Pi: %.10g\n", {continued_fraction(precision,
{{Out}}
<pre>
|