# project euler 38

# check if pandigital 1-9
p ← ≍+1⇡9⍆⊥₁₀
# concatenated product
c ← °⊥₁₀/◇⊂⇌⍚⊥₁₀×
⍤⤙≍ 1 p c 192 [1 2 3]
⍤⤙≍ 1 ↧⊓=₁=₉₁₈₂₇₃₆₄₅⊸p c 9 [1 2 3 4 5]

/↥▽⊸≡p≡(c :) ⇡10000 ¤[1 2]