euler053 ( -- answer )

Vocabulary

project-euler.053

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math math.combinatorics ranges sequences ;

IN: project-euler.053

: euler053 ( -- answer )
    23 100 [a..b]
    [ dup <iota> [ nCk 1000000 > ] with count ] map-sum ;