diff options
| -rw-r--r-- | problem9.ijs | 13 |
1 files changed, 13 insertions, 0 deletions
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 |