diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-07-04 12:10:01 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-07-04 12:10:01 +0200 |
| commit | b0f5f50412594a52fb276f03db1048bf626413b0 (patch) | |
| tree | 12b0c5e8e8447af5a396edd9a67d9760131d4584 | |
| parent | 115efe92ddd63a31332ca740d76eaf889a9c79ed (diff) | |
Fix problem 50
| -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 |