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