From 8519b1be179749f445eb72c49dee80a2b054553a Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 27 Aug 2021 18:32:22 +0200 Subject: Problem 32 --- problem32.ijs | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 problem32.ijs diff --git a/problem32.ijs b/problem32.ijs new file mode 100644 index 0000000..a0a7e9e --- /dev/null +++ b/problem32.ijs @@ -0,0 +1,8 @@ +digits =: 10&#.^:_1 +pandigital =: (1+i.9) -: /:~ +validProd =: dyad define"0 + prod =. x*y + prod*pandigital ;digits each x,y,prod +) +limit =: 2000 NB. Limit set to 2000 by experiment :) +problem32 =: +/~.,validProd/~1+i.limit -- cgit v1.2.3