path: root/problem43.ijs

nums =: (i.!10)A.i.10
primes =: p:i.7
subnums =: verb : '10&#."1}.3,\y'
good =: verb : '*./0=primes|subnums y'
problem43 =: +/10&#."1 (I. good"1 nums) { nums