Hofstadter Figure-Figure sequences: Difference between revisions
Hofstadter Figure-Figure sequences (view source)
Revision as of 21:10, 8 November 2011
, 12 years ago→{{header|J}}
m (→{{header|J}}) |
|||
Line 390:
=={{header|J}}==
<lang j>R=: 1 1 3
S=: 0 2 4
FF=: 3 :0
while. +./y>:R,&#S do.
R=: R,({:R)+(<:#R){S
S=: (i.<:+/_2{.R)-.R
|