path: root/problem49.ijs

digits =: 10&#.^:_1
isPrime =: 1&p:
allPrime =: {{*./isPrime"0 y}}"1
permutations =: {{1=+/~:/:~"1 digits"0 y}}"1

offset =: 3330
count =: 10000-2*offset
combs =: (i.3339) +" 0 1 offset * i.3
primeAndPerm =: allPrime *. permutations
goodSeq =: ({: I. primeAndPerm combs) + offset * i.3
problem49 =: 10#.,digits"0 goodSeq