RosettaCodeData/Task/Stern-Brocot-sequence/J/stern-brocot-sequence-1.j

9 lines
124 B
Text
Raw Permalink Normal View History

2015-02-20 09:02:09 -05:00
sternbrocot=:1 :0
ind=. 0
seq=. 1 1
while. -. u seq do.
ind=. ind+1
seq=. seq, +/\. seq {~ _1 0 +ind
end.
)