sync with local: solve 70
This commit is contained in:
7
70/solution.uiua
Normal file
7
70/solution.uiua
Normal file
@@ -0,0 +1,7 @@
|
||||
# project euler 70
|
||||
Φ ← ⁅×/×-⊸÷⊙1◴⊸°/× # from uiua discord by maweo
|
||||
p ← ≍∩(⍆°⋕)⊸Φ
|
||||
b ← =⊸/↧≡(÷⊸Φ)
|
||||
s ← ▽⊸(↧b⟜≡p)
|
||||
σ ← ▽⊸(=⊸(/↧)≡/÷) ▽⊙(⍉⊟)≡(◡(≍∩(⍆°⋕))⊸Φ)
|
||||
σ⍜-₂⇡1e7
|
||||
Reference in New Issue
Block a user