From 97887f87d46c179827fb14ce2a5d4b8aae8ca174 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Thu, 26 Aug 2021 21:20:10 +0200
Subject: Problem 39

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

diff --git a/problem39.ijs b/problem39.ijs
new file mode 100644
index 0000000..064ce73
--- /dev/null
+++ b/problem39.ijs
@@ -0,0 +1,7 @@
+perimeter =: {{ x+y+%:(x^2)+y^2 }}
+count =: monad define
+	pairs =. y=perimeter"0/~>:i.y
+	top =. <:/~i.y
+	+/,pairs*.top
+)
+problem39 =: >:{.\:count"0>:i.1e3 NB. Takes around 3-4 minutes to compute
-- 
cgit v1.2.3