quarter ( timestamp -- [1,4] )


Vocabulary
calendar

Inputs
timestampan object


Outputs
[1,4]an object


Definition
USING: accessors kernel math ;

IN: calendar

: quarter ( timestamp -- [1,4] )
month>> 3 /mod [ drop 1 + ] unless-zero ; inline