Anonymous user
EKG sequence convergence: Difference between revisions
m
→{{header|J}}
m (→{{header|J}}) |
|||
Line 255:
=={{header|J}}==
<lang j>
Until =: 2 :'u^:(0-:v)^:_'
prime_factors_of_tail =: ~.@:q:@:{:
numbers_not_in_list =: -.~ >:@:i.@:(>./)
ekg =: 3 :0 NB. return sequence with next
if. 1 = # y do. NB. initialize
1 , y
Line 267:
a =. prime_factors_of_tail y
b =. numbers_not_in_list y
index_of_lowest =. {. _ ,~ I. 1
if. index_of_lowest < _ do. NB. if the list doesn't need extension
y , index_of_lowest { b
return.
end.
NB. otherwise extend the list's range
)
ekg^:9&>2 5 7 9 10
| |||