Hofstadter Q sequence: Difference between revisions
Added Swift solution
Not a robot (talk | contribs) (Add Cowgol) |
(Added Swift solution) |
||
Line 3,032:
Term 1000: 502
Terms less than preceding in first 100k: 49798
</pre>
=={{header|Swift}}==
{{trans|C}}
<lang swift>let n = 100000
var q = Array(repeating: 0, count: n)
q[0] = 1
q[1] = 1
for i in 2..<n {
q[i] = q[i - q[i - 1]] + q[i - q[i - 2]]
}
print("First 10 elements of the sequence: \(q[0..<10])")
print("1000th element of the sequence: \(q[999])")
var count = 0
for i in 1..<n {
if q[i] < q[i - 1] {
count += 1
}
}
print("Number of times a member of the sequence is less than the preceding term for terms up to and including the 100,000th term: \(count)")</lang>
{{out}}
<pre>
First 10 elements of the sequence: [1, 1, 2, 3, 3, 4, 5, 5, 6, 6]
1000th element of the sequence: 502
Number of times a member of the sequence is less than the preceding term for terms up to and including the 100,000th term: 49798
</pre>
| |||