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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Stern-Brocot-sequence/J/stern-brocot-sequence-1.j Normal file
View file

@ -0,0 +1,8 @@
sternbrocot=:1 :0
ind=. 0
seq=. 1 1
while. -. u seq do.
ind=. ind+1
seq=. seq, +/\. seq {~ _1 0 +ind
end.
)

2
Task/Stern-Brocot-sequence/J/stern-brocot-sequence-2.j Normal file
View file

@ -0,0 +1,2 @@
15{.(15<:#) sternbrocot
1 1 2 1 3 2 3 1 4 3 5 2 5 3 4

2
Task/Stern-Brocot-sequence/J/stern-brocot-sequence-3.j Normal file
View file

@ -0,0 +1,2 @@
1+(10 e. ]) sternbrocot i.1+i.10
1 3 5 9 11 33 19 21 35 39

2
Task/Stern-Brocot-sequence/J/stern-brocot-sequence-4.j Normal file
View file

@ -0,0 +1,2 @@
1+(100 e. ]) sternbrocot i. 100
1179

2
Task/Stern-Brocot-sequence/J/stern-brocot-sequence-5.j Normal file
View file

@ -0,0 +1,2 @@
~.2 +./\ (1000<:#) sternbrocot
1