Continued fraction: Difference between revisions
Added 11l
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 20:
* [[Continued fraction/Arithmetic]] for tasks that do arithmetic over continued fractions.
=={{header|11l}}==
<lang 11l>F calc(f_a, f_b, =n = 1000)
V r = 0.0
L n > 0
r = f_b(n) / (f_a(n) + r)
n--
R f_a(0) + r
print(calc(n -> I n > 0 {2} E 1, n -> 1))
print(calc(n -> I n > 0 {n} E 2, n -> I n > 1 {n - 1} E 1))
print(calc(n -> I n > 0 {6} E 3, n -> (2 * n - 1) ^ 2))</lang>
=={{header|Ada}}==
| |||