From b89362ab23af5ea22c607b7a41efbe697b900545 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 13 Sep 2021 14:47:03 +0200
Subject: Problem 41

---
 problem41.ijs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 problem41.ijs

(limited to 'problem41.ijs')

diff --git a/problem41.ijs b/problem41.ijs
new file mode 100644
index 0000000..898ef55
--- /dev/null
+++ b/problem41.ijs
@@ -0,0 +1,20 @@
+digits =: 10&#.^:_1
+
+pandigital =: monad define
+	ds =. /:~ digits y
+	ds -: 1 + i. # ds
+)
+
+solve =: monad define
+	i =. _1 p: y
+	result =. 0
+	while. result=0 do.
+		if. pandigital p: i do.
+			result =. p: i
+		end.
+		i =. i - 1
+	end.
+	result
+)
+
+problem41 =: solve 7654321 NB. Takes too long to start from 987654321 
-- 
cgit v1.2.3