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 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Hofstadter-Q-sequence/OxygenBasic/hofstadter-q-sequence.basic Normal file
View file

@ -0,0 +1,26 @@
uses console
int limite = 100000
dim long Q[100000]
long i, cont = 0
Q[1] = 1
Q[2] = 1
For i = 3 To limite
Q[i] = Q[i-Q[i-1]] + Q[i-Q[i-2]]
If Q(i) < Q(i-1) Then cont += 1
Next i
print "Primeros 10 terminos: "
For i = 1 To 10
print Q(i) " ";
Next i
print cr
printl "Termino numero 1000: " Q(1000)
printl "Terminos menores que los anteriores: " cont
printl cr "Enter ..."
waitkey