first-days ( end-date start-date -- days ) - Factor Documentation

first-days ( end-date start-date -- days )

Vocabulary
project-euler.019.private

Inputs

end-date	an object
start-date	an object

Outputs

days

Definition

USING: calendar kernel math.order sequences ;

IN: project-euler.019.private

: first-days ( end-date start-date -- days )
[ 2dup after=? ] [ dup 1 months time+ swap day-of-week ]
produce 2nip ;