Data update

Task/Hofstadter-Q-sequence/FutureBasic/hofstadter-q-sequence.basic

@@ -0,0 +1,19 @@
+_limit = 100000
+
+Long Q(_limit), i, count = 0
+
+Q(1) = 1
+Q(2) = 1
+For i = 3 To _limit
+  Q(i) = Q(i-Q(i-1)) + Q(i-Q(i-2))
+  If Q(i) < Q(i-1) Then count += 1
+Next i
+
+Print "First 10 elements:";
+For i = 1 To 10
+  Print str$(Q(i)) + " ";
+Next i
+Print
+Print "Q(1000) is "; Q(1000)
+Print "There were" + str$(count) + " inversions"
+handleevents