1 files changed, 13 insertions, 0 deletions
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