49/uiua: wip

2025-10-06 20:46:44 +02:00
parent 8469d9fee4
commit ba5c5fd00a
1 changed files with 15 additions and 0 deletions
--- a/49/main.ua
+++ 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