36 lines
542 B
Text
36 lines
542 B
Text
q: 1
|
|
r: 0
|
|
t: 1
|
|
k: 1
|
|
n: 3
|
|
l: 3
|
|
d: 0
|
|
|
|
dotWritten: false
|
|
|
|
while [true][
|
|
switch (n*t) > (4*q)+r-t [
|
|
d: d+1
|
|
prints n
|
|
unless dotWritten [
|
|
prints "."
|
|
dotWritten: true
|
|
d: d+1
|
|
]
|
|
|
|
if 0 = d%80 -> prints "\n"
|
|
nr: 10*(r - n*t)
|
|
n: ((10*(r + 3*q)) / t) - 10*n
|
|
q: q*10
|
|
r: nr
|
|
][
|
|
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
|
|
]
|
|
]
|