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
--- a/38/main.ua
+++ b/38/main.ua
@@ -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]