RosettaCodeData/Task/Hofstadter-Q-sequence/Ring/hofstadter-q-sequence.ring
2016-12-05 23:44:36 +01:00

8 lines
211 B
Text

n = 20
aList = list(n)
aList[1] = 1
aList[2] = 1
for i = 1 to n
if i >= 3 aList[i] = ( aList[i - aList[i-1]] + aList[i - aList[i-2]] ) ok
if i <= 20 see "n = " + string(i) + " : "+ aList[i] + nl ok
next