From e00495caba7d087407761f8d2bfce8a6aa1eb7ef Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Mon, 22 Sep 2025 01:59:50 +0200
Subject: [PATCH] solve 27 in uiua (20 sec)

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

diff --git a/27/main.ua b/27/main.ua
new file mode 100644
index 0000000..e8549b1
--- /dev/null
+++ b/27/main.ua
@@ -0,0 +1,14 @@
+# project euler 27
+
+# bool ? n
+IsPrime ← memo(=1⧻°/×)
+⍤⤙≍ 1 /↧≡IsPrime +41+⊸°√ ⇡40 # euler's formula
+
+# create intervals:
+-1000⇡2001 # [-1000, 1000]
+-999⇡1999  # [ -999,  999]
+≡₁(⊂⍢+₁(
+    ⍣IsPrime0 ++⊃(°√|×⊙⊢|⋅⊣)
+  )0
+) ⊞⊟
+/× &p&pf"number of primes: "°⊂ ⊣⍆♭₂