20 lines
357 B
Text
20 lines
357 B
Text
|
F farey(n)
|
|||
|
|
V a = 0
|
|||
|
|
V b = 1
|
|||
|
|
V c = 1
|
|||
|
|
V d = n
|
|||
|
|
V far = ‘0/1 ’
|
|||
|
|
V farn = 1
|
|||
|
|
L c <= n
|
|||
|
|
V k = (n + b) I/ d
|
|||
|
|
(a, b, c, d) = (c, d, k * c - a, k * d - b)
|
|||
|
|
far ‘’= a‘/’b‘ ’
|
|||
|
|
farn++
|
|||
|
|
R (far, farn)
|
|||
|
|
|
|||
|
|
L(i) 1..11
|
|||
|
|
print(i‘: ’farey(i)[0])
|
|||
|
|
|
|||
|
|
L(i) (100..1000).step(100)
|
|||
|
|
print(i‘: ’farey(i)[1]‘ items’)
|