Anonymous user
Hofstadter Figure-Figure sequences: Difference between revisions
Hofstadter Figure-Figure sequences (view source)
Revision as of 14:37, 26 January 2012
, 12 years ago→{{header|MATLAB}} / {{header|Octave}}: Hofstadter Figure-Figure in Matlab and Octave
(→{{header|PL/I}}: trim excessive output display) |
(→{{header|MATLAB}} / {{header|Octave}}: Hofstadter Figure-Figure in Matlab and Octave) |
||
Line 574:
(1+i.1000) -: /:~ (ffr 1+i.40), ffs 1+i.960
1</lang>
=={{header|MATLAB}} / {{header|Octave}}==
<lang MATLAB>N = 1000;
r = zeros(1,N);
r(1) = 1;
n = 1;
while n<=1000,
n = n + 1;
R = find(r,n-1);
S = find(~r,n-1);
r(R+S) = 1;
end;
R = find(r(1:N))
S = find(~r(1:N))</lang>
Output:
<pre>>> R = find(r(1:N))
R =
Columns 1 through 20:
1 3 7 12 18 26 35 45 56 69 83 98 114 131 150 170 191 213 236 260
Columns 21 through 40:
285 312 340 369 399 430 462 495 529 565 602 640 679 719 760 802 845 889 935 982
>> R = find(~r(1:N))
R =
Columns 1 through 17:
2 4 5 6 8 9 10 11 13 14 15 16 17 19 20 21 22
Columns 18 through 34:
23 24 25 27 28 29 30 31 32 33 34 36 37 38 39 40 41
Columns 35 through 51:
42 43 44 46 47 48 49 50 51 52 53 54 55 57 58 59 60
....
</pre>
=={{header|PicoLisp}}==
|