aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Farey-sequence/Langur/farey-sequence.langur
View file

@ -1,4 +1,4 @@
val farey = fn(n) {
val farey = fn(n number) {
var a, b, c, d = 0, 1, 1, n
while[=[[0, 1]]] c <= n {
val k = (n + b) // d
@ -10,7 +10,7 @@ val farey = fn(n) {
val testFarey = fn*() {
writeln "Farey sequence for orders 1 through 11"
for i of 11 {
writeln "{{i:2}}: ", join(map(farey(i), by=fn f: "{{f[1]}}/{{f[2]}}"), by=" ")
writeln "{{i:2}}: ", join(map(farey(i), by=fn f: "{{f[1]}}/{{f[2]}}"), delim=" ")
}
}