solve 27 in uiua (20 sec)

2025-09-22 01:59:50 +02:00
parent 9877c744ac
commit e00495caba
1 changed files with 14 additions and 0 deletions
--- a/27/main.ua
+++ 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: "°⊂ ⊣⍆♭₂