# 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