(circular?) ( seq n -- ? )

Vocabulary

project-euler.035.private

Inputs

seq	an object
n	an object

Outputs

?

an object

Definition

USING: kernel math math.primes project-euler.common ;

IN: project-euler.035.private

: (circular?) ( seq n -- ? )
    dup 0 > [
        2dup rotate digits>number prime?
        [ 1 - (circular?) ] [ 2drop f ] if
    ] [ 2drop t ] if ;