From b0f5f50412594a52fb276f03db1048bf626413b0 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 4 Jul 2022 12:10:01 +0200 Subject: Fix problem 50 --- problem50.ijs | 5 +++-- 1 file 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 -- cgit v1.2.3