(week-number) ( timestamp -- [0,53] )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

[0,53]

an object

Definition

USING: kernel math ;

IN: calendar

: (week-number) ( timestamp -- [0,53] )
    [ day-of-year ] [ day-of-week [ 7 ] when-zero ] bi - 10 +
    7 /i ;