Hofstadter Q sequence: Difference between revisions
Content added Content deleted
m (Forth - minor edit) |
(add Fermat) |
||
| Line 1,408: | Line 1,408: | ||
{ 1 1 2 3 3 4 5 5 6 6 } |
{ 1 1 2 3 3 4 5 5 6 6 } |
||
502</lang> |
502</lang> |
||
=={{header|Fermat}}== |
|||
<lang>Func Hq(n) = if n<2 then 1 else |
|||
Array qq[n+1]; |
|||
qq[1] := 1; |
|||
qq[2] := 1; |
|||
for i = 3, n do |
|||
qq[i]:=qq[i-qq[i-1]]+qq[i-qq[i-2]] |
|||
od; |
|||
Return(qq[n]); |
|||
fi; |
|||
. |
|||
for i=1 to 10 do !Hq(i);!' ' od; |
|||
Hq(1000)</lang> |
|||
{{out}}<pre> |
|||
1 1 2 3 3 4 5 5 6 6 |
|||
502</pre> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |
||