diff options
Diffstat (limited to 'problem50.ijs')
| -rw-r--r-- | problem50.ijs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/problem50.ijs b/problem50.ijs index 8844237..13072dd 100644 --- a/problem50.ijs +++ b/problem50.ijs @@ -1,11 +1,12 @@ -solve =. monad define +solve =: monad define ns =. p:i._1 p: y for_length. |.I.y>+/\ns do. sums =. length+/\ns - vals =. sums#~(y>sums)*.isPrime sums + vals =. sums#~(y>sums)*.1 p: sums if. 0<#vals do. return. >./vals end. end. ) + problem50 =: solve 1e6 |