solve 47 in uiua (fast)

2025-10-04 10:03:34 +02:00
parent 0e51ddd620
commit 8469d9fee4
1 changed files with 6 additions and 0 deletions
--- a/47/main.ua
+++ b/47/main.ua
@@ -0,0 +1,6 @@
+# project euler 47
+
+⍜-⇡2 140000       # some numbers
+⍉°/×              # pervasively prime factorize
+⧈₄(/↧=4≡(⧻◴▽⊸≠1)) # count unique primes for consecutive numbers
+⊢+2⊚              # get first such