diff options
| -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 |