From a3ebe0395897c8e3928c4c68aa937bab75ea6006 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 27 Aug 2021 17:10:33 +0200 Subject: Problem 27 --- problem27.ijs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 problem27.ijs diff --git a/problem27.ijs b/problem27.ijs new file mode 100644 index 0000000..f4d5d47 --- /dev/null +++ b/problem27.ijs @@ -0,0 +1,16 @@ +seq =: dyad define "0 + n =. 0 + primes =. 0 + while. 1 p: y+(n*x)+n*n do. + n =. n+1 + primes =. primes+1 + end. + primes +) + +max =: 1000 +range =: max-~i.>:max*2 +tab =: seq/~range +rowIx =: {. \: >./"1 tab +colIx =: {. \: rowIx { tab +problem27 =: */range{~rowIx,colIx -- cgit v1.2.3