From ba5c5fd00ad4cacb271e6f1b050a347023d85278 Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Mon, 6 Oct 2025 20:46:44 +0200
Subject: [PATCH] 49/uiua: wip

---
 49/main.ua | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 49/main.ua

diff --git a/49/main.ua b/49/main.ua
new file mode 100644
index 0000000..90f2f95
--- /dev/null
+++ b/49/main.ua
@@ -0,0 +1,15 @@
+# project euler 49
+
+# pervasive primality
+IsPrime ← =1/+≠1°/×
+
+S ← (
+  ⍜-⇡1000 10000
+  +¤×⇡3:
+  ▽⊸(/↧IsPrime⍉)
+  ▽⊸(↧⊃(
+      ≡/↧≡₁(=4⧻◴)
+    | ≡(=4⧻◴/⊂)
+    )⊥10)
+)
+∩⌞▽⊸(⊸≡◇(>0⧻)⍚S) +1⇡4500