Hofstadter Figure-Figure sequences: Difference between revisions
Content added Content deleted
(D version) |
m (J: cleaner efficiency implementation) |
||
Line 135: | Line 135: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<lang j>R=: |
<lang j>R=:_1 1 3 7 |
||
S=: |
S=:0 2 4 5 |
||
FF=:3 :0 |
FF=:3 :0 |
||
assert. y>:0 |
|||
while.+./y>:R,&#S do. |
while.+./y>:R,&#S do. |
||
R=: R,({:R)+(<:#R){S |
R=: R,({:R)+(<:#R){S |
||
S=: ( |
S=: (i.+/_2{.R)-.R |
||
end. |
end. |
||
R;S |
|||
) |
) |
||
ffr=: { |
ffr=: { 0 {:: FF@(>./@,) |
||
ffs=: {: |
ffs=: { 1 {:: FF@(0,>./@,)</lang> |
||
Required examples: |
Required examples: |