euler508 ( -- answer )

Vocabulary

project-euler.508

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.508

: euler508 ( -- answer )
    10 15 ^ dup [ neg ] dip 2dup B 1000000007 mod ;