Hofstadter Figure-Figure sequences: Difference between revisions
Content added Content deleted
m (added whitespace before the TOC (table of contents), added a ;Task: (bold) header.) |
|||
| Line 1,399: | Line 1,399: | ||
1 3 7 12 18 26 35 45 56 69 |
1 3 7 12 18 26 35 45 56 69 |
||
All Integers 1..1000 found OK</pre> |
All Integers 1..1000 found OK</pre> |
||
=={{header|Oforth}}== |
|||
<lang oforth> |
|||
tvar: R |
|||
ListBuffer new 1 over add R put |
|||
tvar: S |
|||
ListBuffer new 2 over add S put |
|||
: buildnext |
|||
| r s current i | |
|||
R at ->r |
|||
S at ->s |
|||
r last r size s at + dup ->current r add |
|||
s last 1+ current 1- for: i [ i s add ] |
|||
current 1+ s add ; |
|||
: ffr(n) |
|||
while ( R at size n < ) [ buildnext ] |
|||
n R at at ; |
|||
: ffs(n) |
|||
while ( S at size n < ) [ buildnext ] |
|||
n S at at ;</lang> |
|||
Output : |
|||
<pre> |
|||
>#[ ffr . ] 10 seqEach |
|||
1 3 7 12 18 26 35 45 56 69 |
|||
ok |
|||
>#ffr 40 seq map #ffs 960 seq map + sort 1000 seq == . |
|||
1 ok |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||