From a8dbafa7bc62c9b6cfd8bff201e1ad4a2a0d70ff Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Sun, 21 Sep 2025 13:25:39 +0200
Subject: [PATCH] make it faster (thanks jan makoso)

---
 main.ua | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/main.ua b/main.ua
index 3b1ab71..0f61fc2 100644
--- a/main.ua
+++ b/main.ua
@@ -1,15 +1,14 @@
 # how many iterations before divergence
-# ? z0=c
-Iter ← ◌⍢(
-  ⊃(+ⁿ2⊙⋅∘|⋅+₁)
-| ↧⊙<₁₀₀₀≤2⌵
-)⊙0.
-# ? iteration_number
-Color ← °hsv [¯η 0.75 ˜-1↧1÷12]
+# iteration_number ? z0=c
+Iter ← /+<2↧∞⌵⍥⟜⊸(+⊙°√)32 .
+
+# [r g b] ? iteration_number
+Color ← °hsv ⍉ ⊂¯η⊂0.75 ¤ ¬↧1÷12
 # create [a, b) with n values
 # ? a b n
-Linspace ← +⟜(×⌵-⊙⊙(÷⟜⇡))
+Linspace ← ⍜-×⊙⊙(÷⟜⇡)
 
-X ← Linspace ¯2 0.85 200
-Y ← Linspace ¯1.2 1.2 200
-&ims ≡₀Color ≡₀Iter ⊞ℂ Y X
+X ← Linspace ¯2 0.85 400
+Y ← Linspace ¯1.2 1.2 400
+
+&ims Color Iter ⊞ℂ Y X