euler019 ( -- answer )

Vocabulary

project-euler.019

Inputs

None

Outputs

answer

an object

Definition

USING: calendar kernel ranges sequences ;

IN: project-euler.019

: euler019 ( -- answer )
    1901 2000 [a..b]
    [ 12 [1..b] [ 1 (day-of-week) ] with map ] map concat
    [ 0 = ] count ;