Farey sequence: Difference between revisions
→{{header|langur}}
(Added QBasic) |
Langurmonkey (talk | contribs) |
||
| (3 intermediate revisions by the same user not shown) | |||
Line 2,201:
=={{header|langur}}==
<syntaxhighlight lang="langur">
val farey = fn(n) {
while[=[[0, 1]]] c
_while ~= [[a, b]]
}
}
val
writeln "Farey sequence for orders 1 through 11"
for
writeln
}
}
writeln()
writeln "count of Farey sequence fractions for 100 to 1000 by hundreds"
for
writeln
}
{{out}}
| |||