wip 66 in uiua

2025-09-25 09:48:17 +02:00
parent cbdb6a2261
commit 596aedabc9
2 changed files with 28 additions and 0 deletions
--- a/66/main.ua
+++ b/66/main.ua
@@ -0,0 +1,22 @@
+# 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 ?
--- a/66/test.ua
+++ b/66/test.ua
@@ -0,0 +1,6 @@
+# Experimental!
+# ? x y D
+F ← =1˜-⊙×∩°√
+◴≡(⇌⍆) ♭₂ wait pool⊞⊟ ∩+₁⊃⇡(⇡×29) 1000
+≡˜⊂¤29
+▽⊸(F≡°⊟₃)