Hofstadter Figure-Figure sequences: Difference between revisions

Content added Content deleted
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
Retrieved from "https://rosettacode.org/wiki/Hofstadter_Figure-Figure_sequences"