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/Hofstadter-Q-sequence/J/hofstadter-q-sequence-1.j Normal file
View file

@ -0,0 +1,8 @@
Qs=:0 1 1
Q=: verb define
n=. >./,y
while. n>:#Qs do.
Qs=: Qs,+/(-_2{.Qs){Qs
end.
y{Qs
)

1
Task/Hofstadter-Q-sequence/J/hofstadter-q-sequence-2.j Normal file
View file

@ -0,0 +1 @@
Q=: 1:`(+&$:/@:- $:@-& 1 2)@.(>&2)"0 M.

6
Task/Hofstadter-Q-sequence/J/hofstadter-q-sequence-3.j Normal file
View file

@ -0,0 +1,6 @@
Q 1+i.10
1 1 2 3 3 4 5 5 6 6
Q 1000
502
+/2>/\ Q 1+i.100000
49798