(day-of-year) ( $year $month $day -- n )

Vocabulary

calendar

Inputs

$year	an object
$month	an object
$day	an object

Outputs

n

an object

Definition

USING: calendar.private combinators.short-circuit kernel math
sequences ;

IN: calendar

:: (day-of-year) ( $year $month $day -- n )
    $month cumulative-day-counts nth $day +
    { [ $year leap-year? ] [ $month 3 >= ] } 0&& [ 1 + ] when ;