Farey sequence: Difference between revisions

<syntaxhighlight lang="langur">val .farey = fn(.n) {

while[=[[0var a, 1]]]b, .c, d <= .n0, {1, 1, n

while[=[[0, 1]]] c val .k <= (.n + .b) // .d{

.a,val .b, .c, .dk = .c,(n .d,+ .kb) *// .c - .a, .k * .d - .b

_whilea, b, c, d ~= [[.c, d, k * c - a, .k * d - b]]

val .testFarey = impure fn() {

for .i of 11 {

writeln "{{.i:2}}: ", join (" ", map(fn .f: "{{.f[1]}}/{{.f[2]}}", .farey(.i)))

}

.testFarey()

for .i = 100; .i <= 1000; .i += 100 {

writeln $"\.{{i:4;}}: ", len(.farey(.i))

}</syntaxhighlight>