l-trunc? ( n -- ? )

Vocabulary

project-euler.037.private

Inputs

n

an object

Outputs

?

an object

Definition

USING: kernel math math.primes ;

IN: project-euler.037.private

: l-trunc? ( n -- ? )
    reverse-digits 10 /i reverse-digits dup 0 >
    [ dup prime? [ l-trunc? ] [ drop f ] if ] [ drop t ] if ;