diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-26 19:55:37 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-26 19:55:37 +0200 |
| commit | f157883e501d0539d6d88de38a8594e60d57ff29 (patch) | |
| tree | 15de148ffedbb320d50dc7ac8435395463c28a9b /problem50.ijs | |
| parent | 409d69d801c61f4770de360557d9e9332345cf6c (diff) | |
problem 50
Diffstat (limited to 'problem50.ijs')
| -rw-r--r-- | problem50.ijs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/problem50.ijs b/problem50.ijs new file mode 100644 index 0000000..8844237 --- /dev/null +++ b/problem50.ijs @@ -0,0 +1,11 @@ +solve =. monad define + ns =. p:i._1 p: y + for_length. |.I.y>+/\ns do. + sums =. length+/\ns + vals =. sums#~(y>sums)*.isPrime sums + if. 0<#vals do. + return. >./vals + end. + end. +) +problem50 =: solve 1e6 |