Hofstadter Q sequence: Difference between revisions
Content added Content deleted
(Added Quackery.) |
m (→{{header|Quackery}}: simplified bounds check in qpeek) |
||
Line 2,729: | Line 2,729: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<lang Quackery> |
<lang Quackery>[ 2dup swap size dup negate swap within |
||
abs swap size < |
|||
not if |
not if |
||
[ drop size 1+ number$ |
[ drop size 1+ number$ |
||
Line 2,767: | Line 2,766: | ||
<pre>1 1 2 3 3 4 5 5 6 6 ... 502 |
<pre>1 1 2 3 3 4 5 5 6 6 ... 502 |
||
49798 decreasing terms</pre> |
49798 decreasing terms</pre> |
||
=={{header|R}}== |
=={{header|R}}== |