solve 38 in uiua

2025-09-07 11:35:34 +02:00
parent 99a8ea26ff
commit e396453ec4
1 changed files with 10 additions and 0 deletions
@@ -0,0 +1,10 @@
 # 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]