Yellowstone sequence: Difference between revisions
→{{header|VBA}}
Line 2,711:
0 OK, 0:670
</pre>
=={{header|Uiua}}==
Very simple approach, probably lots of room for improvement.
[https://www.uiua.org/pad?src=0_12_0-dev_1__R2NkIOKGkCDiipnil4zijaIo4p-c4pe_OnzCsSwpCgpZIOKGkCDijaIoKzF84p-owqziiY0wXzHiiaEoPTFHY2Qp4oqZKOKGmcKvMil8MeKfqeKIiiwsKTEgIyBbYTAgYTEuLi5hbl0gLT4gYW4rMQoKTiDihpAgMjAwCuKNoijiioI6WXw8TuKnuylbMSAyIDNdCuKfnCjihpkzMCkgICAgICAjIEZpcnN0IDMwCuKWveKfnOKJoeKWvTLiip49IOKHjOKHoU4gIyBQbG90IDIwMAo= Run it in Uiua Pad to see the plot.]
<syntaxhighlight lang="uiua">
Gcd ← ⊙◌⍢(⟜◿:|±,)
NextY ← ⍢(+1|⟨¬≍0_1≡(=1Gcd)⊙(↙¯2)|1⟩∊,,)1 # [a0 a1...an] -> an+1
N ← 200
⍢(⊂:NextY|<N⧻)[1 2 3]
⟜(↙30) # First 30
▽⟜≡▽2⊞= ⇌⇡N # Plot 200
</syntaxhighlight>
{{out}}
<pre>
[1 2 3 4 9 8 15 14 5 6 25 12 35 16 7 10 21 20 27 22 39 11 13 33 26 45 28 51 32 17]
</pre>
| |||