Yellowstone sequence: Difference between revisions
J →explicit: more concise (also use prettier j release 9 delimiters on explicit definition)
m (→{{header|RPL}}) |
(J →explicit: more concise (also use prettier j release 9 delimiters on explicit definition)) |
||
Line 1,120:
relatively_prime=: 1 = GCD
yellowstone=:
▲ while. y > # s do.
▲ z=. {. start NB. z is the lowest number not in the sequence
if. 0 1 -: z relatively_prime _2{.s do.
▲ while.do.
do. z=. z+1 end. NB. find next value for sequence
end.
}}
▲ s=. s , z
</syntaxhighlight>
<pre>
| |||