Problem 41

1 files changed, 20 insertions, 0 deletions

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