raw-zones>interval-map ( raw-zones -- interval-map )

Vocabulary

zoneinfo

Inputs

raw-zones

an object

Outputs

interval-map

an object

Definition

USING: accessors arrays assocs grouping interval-maps kernel
math sequences ;

IN: zoneinfo

: raw-zones>interval-map ( raw-zones -- interval-map )
    [
        [ until>> until>timestamp ] map -1/0. prefix 2 <clumps>
        [ >array ] map
    ] keep zip [ first2 1 - 2array ] map-keys <interval-map> ;