RosettaCodeData/Task/Yellowstone-sequence/Uiua/yellowstone-sequence.uiua

9 lines
282 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
Gcd ← ⊙◌⍢(˜⟜◿|⊃⋅±⊙∘)
# Experimental!
Gcd ←
NextY ← ⍢(+1|⨬(¬≍0_1=1≡Gcd⊙↙₋₂|1)˜∊⊃⊙∘⊙∘)1 # [a0 a1...an] -> an+1
N ← 200
⍢(˜⊂NextY|<N⧻)[1 2 3]
⟜↙₃₀ # First 30
2024-07-13 15:19:22 -07:00
▽⟜≡▽2⊞= ⇌⇡N # Plot 200