Hofstadter Q sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add MAD) |
(Updated to work with Nim 1.4.) |
||
Line 1,800: | Line 1,800: | ||
=={{header|Nim}}== |
=={{header|Nim}}== |
||
<lang nim>var q = @[1, 1] |
<lang nim>var q = @[1, 1] |
||
for n in 2 .. |
for n in 2 ..< 100_000: q.add q[n-q[n-1]] + q[n-q[n-2]] |
||
echo q[0..9] |
echo q[0..9] |
||
Line 1,809: | Line 1,809: | ||
var lessCount = 0 |
var lessCount = 0 |
||
for n in 1 .. |
for n in 1 ..< 100_000: |
||
if q[n] < q[n-1]: |
if q[n] < q[n-1]: |
||
inc lessCount |
inc lessCount |