19 lines
357 B
Text
19 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’)
|