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: "°⊂ ⊣⍆♭₂