87(uiua): wip
This commit is contained in:
10
87/main.ua
Normal file
10
87/main.ua
Normal file
@@ -0,0 +1,10 @@
|
||||
# project euler 87
|
||||
P ← =1/+≠1°/×
|
||||
Primes ← ⍥(⊂2)>2⟜(▽⊸P+1⍜÷₂(⇡⌊))
|
||||
Primes 6
|
||||
# +24°√⊣ # 7080 -> 50112265
|
||||
⧅≥3
|
||||
≡↻[1 2 3]¤⍉
|
||||
◴/⊂⍉
|
||||
/+ⁿ[2 3 4]⍉
|
||||
⧻⊚<50
|
||||
Reference in New Issue
Block a user