Yellowstone sequence: Difference between revisions

m
J →‎explicit: more concise, roughly the same speed (sometimes faster, sometimes not)
(J →‎explicit: more concise (also use prettier j release 9 delimiters on explicit definition))
m (J →‎explicit: more concise, roughly the same speed (sometimes faster, sometimes not))
Line 1,121:
 
yellowstone=: {{
seedss=. 4+i.1+y 2 3 NB. candidate starting values for NB. initial sequence
s=. 1 2 3
while. y > # s do.
z=. {<.seeds /(1+s)-.s NB. lowest positive integerinteeger not in sequence
while.
if. 0 1 -: z relatively_prime _2{.s do.
Line 1,130 ⟶ 1,129:
end.
do. z=. z+1 end. NB. find next value for sequence
seeds=. seeds -. z
s=. s, z
end.
6,962

edits