From bca82abccff2f44fc6d8891bd7cc12e15a10cfc6 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 27 Sep 2021 19:39:25 +0200
Subject: Problem 45

---
 problem45.ijs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 problem45.ijs

diff --git a/problem45.ijs b/problem45.ijs
new file mode 100644
index 0000000..1986219
--- /dev/null
+++ b/problem45.ijs
@@ -0,0 +1,13 @@
+T =: {{ 0.5*y*y+1 }}
+P =: {{ 0.5*y*_1+3*y }}
+H =: {{ y*_1+2*y }}
+
+limit =: 1e5 NB. A guess that works
+
+'Ts Ps Hs' =: (T;P;H)i.limit
+
+isP =: e.&Ps
+isH =: e.&Hs
+isPH =: isP*.isH
+
+problem45 =: Ts{~3}.I.isPH Ts
-- 
cgit v1.2.3