From f157883e501d0539d6d88de38a8594e60d57ff29 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 26 Aug 2021 19:55:37 +0200 Subject: problem 50 --- problem50.ijs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 problem50.ijs 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 -- cgit v1.2.3