49/uiua: need more memory for this one, son

2026-04-04 19:10:45 +02:00
parent 140bd6a431
commit 6dcf8fa304
1 changed files with 22 additions and 0 deletions
--- a/49/new.ua
+++ b/49/new.ua
@@ -0,0 +1,22 @@
+# 1000, 1000+n, ..., 10000-n
+# ? n
+Seq ← (
+  # ⍤"illegal argument"⊸∊⇡₁8999
+  ⌈⊸˜÷9000 ⊙1000
+  ⍥⟜⊸+ # ? 9000÷n n 1000 
+)
+Prime ← =1/+≠1°/×
+
+⇡₁8999
+⟜⍚Seq
+⍚⇡
+⍚⊞+
+/◇⊂⍚♭
+⊏⊸(Prime
+   \(×⤙+)
+   ⊚=3
+   ˜⊞+⇌¯⇡3)
+≡₀◇⍆°⋕
+⊸≡₂(↧∩⌞≍°⊟₃)
+⊡⊢⊚
+/⊂