sync with local: solve 70
This commit is contained in:
@@ -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