8 lines
260 B
Plaintext
8 lines
260 B
Plaintext
# project euler 70
|
||
Φ ← ⁅×/×-⊸÷⊙1◴⊸°/× # from uiua discord by maweo
|
||
p ← ≍∩(⍆°⋕)⊸Φ
|
||
b ← =⊸/↧≡(÷⊸Φ)
|
||
s ← ▽⊸(↧b⟜≡p)
|
||
σ ← ▽⊸(=⊸(/↧)≡/÷) ▽⊙(⍉⊟)≡(◡(≍∩(⍆°⋕))⊸Φ)
|
||
σ⍜-₂⇡1e7
|