20 lines
337 B
Plaintext
20 lines
337 B
Plaintext
_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
|