From fe217ca0372a1ffa2d4ce0ffbcaa9a684b3e95a7 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Wed, 21 Apr 2021 20:49:51 +0200
Subject: Problem 9

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

(limited to 'problem9.ijs')

diff --git a/problem9.ijs b/problem9.ijs
new file mode 100644
index 0000000..1f04358
--- /dev/null
+++ b/problem9.ijs
@@ -0,0 +1,13 @@
+load 'stats'
+
+allpairs=.1 + 3 comb 500 NB. 500 is the maximum value of c is about half of 1000
+pairs=.(1000 = +/"1 allpairs)#allpairs
+
+isPyth=. monad : 0
+ab=.2{.y
+c=.2}.y
+(c^2) = +/ab^2
+)
+
+answerPair=.(;isPyth"1 pairs)#pairs
+problem9=:*/;answerPair
-- 
cgit v1.2.3