path: root/problem35.ijs

digits =: 10&#.^:_1
rotations =: monad : '(|.&y)"0 i.#y'
isPrime =: 1&p:
circularPrime =: monad : '*./isPrime rotations&.digits y'
problem35 =: +/circularPrime"0 i.1e6