Hofstadter Q sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add SETL) |
(Added Easylang) |
||
Line 1,505: | Line 1,505: | ||
<pre>The first 10 terms are: 1 1 2 3 3 4 5 5 6 6 |
<pre>The first 10 terms are: 1 1 2 3 3 4 5 5 6 6 |
||
The 1000th term is: 502</pre> |
The 1000th term is: 502</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|Lua}} |
|||
<syntaxhighlight> |
|||
proc hofstadter limit . q[] . |
|||
q[] = [ 1 1 ] |
|||
for n = 3 to limit |
|||
q[] &= q[n - q[n - 1]] + q[n - q[n - 2]] |
|||
. |
|||
. |
|||
proc count . q[] cnt . |
|||
for i = 2 to len q[] |
|||
if q[i] < q[i - 1] |
|||
cnt += 1 |
|||
. |
|||
. |
|||
. |
|||
hofstadter 100000 hofq[] |
|||
for i = 1 to 10 |
|||
write hofq[i] & " " |
|||
. |
|||
print "" |
|||
print hofq[1000] |
|||
count hofq[] cnt |
|||
print cnt |
|||
</syntaxhighlight> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |