From e396453ec42555e9cb1eb20a21b439e0322e2ea2 Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Sun, 7 Sep 2025 11:35:34 +0200
Subject: [PATCH] solve 38 in uiua

---
 38/main.ua | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 38/main.ua

diff --git a/38/main.ua b/38/main.ua
new file mode 100644
index 0000000..21911d4
--- /dev/null
+++ 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]