13 lines
237 B
Plaintext
13 lines
237 B
Plaintext
# project euler 45
|
||
|
||
T ← ÷2×⊸+₁
|
||
P ← ÷2×⊸(-1×3)
|
||
H ← ×⊸(-1×2)
|
||
|
||
Is! ← =⟜⌊°^
|
||
|
||
+1⇡100000
|
||
⊃⊃T P H # get some numbers
|
||
+1⊚(↧∩⌞˜∊) # for all T, see if in P and H
|
||
T⊣ # get third such trinum
|