From 596aedabc90f16e4fa3518c876cf16bfe96571e2 Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Thu, 25 Sep 2025 09:48:17 +0200
Subject: [PATCH] wip 66 in uiua

---
 66/main.ua | 22 ++++++++++++++++++++++
 66/test.ua |  6 ++++++
 2 files changed, 28 insertions(+)
 create mode 100644 66/main.ua
 create mode 100644 66/test.ua

diff --git a/66/main.ua b/66/main.ua
new file mode 100644
index 0000000..e4aa9d7
--- /dev/null
+++ 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 ?
diff --git a/66/test.ua b/66/test.ua
new file mode 100644
index 0000000..2bc3463
--- /dev/null
+++ b/66/test.ua
@@ -0,0 +1,6 @@
+# Experimental!
+# ? x y D
+F ← =1˜-⊙×∩°√
+◴≡(⇌⍆) ♭₂ wait pool⊞⊟ ∩+₁⊃⇡(⇡×29) 1000
+≡˜⊂¤29
+▽⊸(F≡°⊟₃)