23 lines
486 B
Plaintext
23 lines
486 B
Plaintext
# Experimental!
|
||
# ? x y D
|
||
F ← =1˜-⊙×∩°√
|
||
⍤⤙≍ 1 F 9 4 5
|
||
|
||
D ← ▽⊸(≠⟜⌊√)+1⇡29
|
||
y ← +1⍚⇡ ⌈×2°√/↥D
|
||
x ← ⍚(˜↯1)≡◇⧻ y
|
||
|
||
Iter ← (
|
||
◡F
|
||
⊸(=1/↥≡◇/↥)
|
||
⨬(◌
|
||
| ⊙⊟₄⊸(≡◇˜∊1)
|
||
⧋↘₁∩°□⊃⊢⊣ ⧋⊕□
|
||
⊙(⊂≡◇(⊂⊙¤⧋▽⊙(∩≡°□⊃↘↙¯1)°□⊃⊢↘₁))
|
||
⊙⊙≡°□⧋°⊟₃
|
||
)
|
||
)
|
||
# Iter x y D []
|
||
◌◌◌⍢(+1Iter|>0⋅⋅⧻) x y D []
|
||
⊢°¤⧋⊢⤸2 ?
|