diff --git a/49/new.ua b/49/new.ua new file mode 100644 index 0000000..94aae3b --- /dev/null +++ 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) +≡₀◇⍆°⋕ +⊸≡₂(↧∩⌞≍°⊟₃) +⊡⊢⊚ +/⊂