aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Hofstadter-Figure-Figure-sequences/Euler-Math-Toolbox/hofstadter-figure-figure-sequences.euler Normal file
View file

@ -0,0 +1,19 @@
>function RSstep (r,s) ...
$ n=cols(r);
$ r=r|(r[n]+s[n]);
$ s=s|(max(s[n]+1,r[n]+1):r[n+1]-1);
$ return {r,s};
$ endfunction
>function RS (n) ...
$ if n==1 then return {[1],[2]}; endif;
$ if n==2 then return {[1,3],[2]}; endif;
$ r=[1,3]; s=[2,4];
$ loop 3 to n; {r,s}=RSstep(r,s); end;
$ return {r,s};
$ endfunction
>{r,s}=RS(10);
>r
[ 1 3 7 12 18 26 35 45 56 69 ]
>{r,s}=RS(50);
>all(sort(r[1:40]|s[1:960])==(1:1000))
1