Hofstadter Q sequence: Difference between revisions
Add MAD
(→{{header|F_Sharp|F#}}: ⅟₂ billionth is probably large enough) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 1,655:
The number of flips for the first 100,000 terms is : 49798
</pre>
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
VECTOR VALUES FMT = $2HQ(,I4,3H) =,I4*$
DIMENSION Q(1000)
Q(1) = 1
Q(2) = 1
THROUGH FILL, FOR N=3, 1, N.G.1000
FILL Q(N) = Q(N-Q(N-1)) + Q(N-Q(N-2))
THROUGH SHOW, FOR N=1, 1, N.G.10
SHOW PRINT FORMAT FMT, N, Q(N)
PRINT FORMAT FMT, 1000, Q(1000)
END OF PROGRAM</lang>
{{out}}
<pre>Q( 1) = 1
Q( 2) = 1
Q( 3) = 2
Q( 4) = 3
Q( 5) = 3
Q( 6) = 4
Q( 7) = 5
Q( 8) = 5
Q( 9) = 6
Q( 10) = 6
Q(1000) = 502</pre>
=={{header|Maple}}==
| |||