euler041 ( -- answer )

Vocabulary

project-euler.041

Inputs

None

Outputs

answer

an object

Definition

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

IN: project-euler.041

: euler041 ( -- answer )
    { 7 6 5 4 3 2 1 } all-permutations [ digits>number ] map
    [ prime? ] find nip ;