(euler051) ( i -- answer )

Vocabulary

project-euler.051.private

Inputs

i

an object

Outputs

answer

an object

Definition

USING: kernel math math.order math.parser sequences ;

IN: project-euler.051.private

: (euler051) ( i -- answer )
    dup test-n-digits-primes
    [ 1 + (euler051) ] [
        nip
        [ fill-*-with-ones string>number ] [ min ] map-reduce
    ] if-empty ;