From 898a95e59780dbee58c0a08ba8594b5e33953ccb Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 20 Sep 2021 15:24:10 +0200
Subject: Problem 47

---
 problem47.ijs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 problem47.ijs

(limited to 'problem47.ijs')

diff --git a/problem47.ijs b/problem47.ijs
new file mode 100644
index 0000000..fb483ab
--- /dev/null
+++ b/problem47.ijs
@@ -0,0 +1,21 @@
+factors =: verb : '*/__ q:y'
+distinctFactors =: verb : '#~.;factors each y'
+
+n =: 2
+count =: n*n
+
+solve =: verb define
+	n =. y
+	count =. n*n
+	i =. 1
+	result =. 0
+	while. result = 0 do.
+		if. count = distinctFactors i+i.n do.
+			result =. i
+		end.
+		i =. i + 1
+	end.
+	result
+)
+
+problem47 =: solve 4
\ No newline at end of file
-- 
cgit v1.2.3