From e21b21316915413c3f9b3c62e1b1dbdb6589a986 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 28 Aug 2021 00:43:24 +0200
Subject: Problem 38

---
 problem38.ijs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 problem38.ijs

diff --git a/problem38.ijs b/problem38.ijs
new file mode 100644
index 0000000..4f379ea
--- /dev/null
+++ b/problem38.ijs
@@ -0,0 +1,7 @@
+enc =: 10&#.
+digits =: enc^:_1
+cp =: dyad : 'enc ,;digits each x*1+i.y'
+pandigital =: (1+i.9)-:/:~
+cps =: ~.,(i.1e4) cp"0/ 2+i.8
+valid =: pandigital&:digits"0
+problem38 =: x:{.\:~(valid#])cps
-- 
cgit v1.2.3