11 lines
279 B
Plaintext
11 lines
279 B
Plaintext
# 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]
|